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MODULE jsm$swapped_job_manager ; 


res ee 


The purpose of this module is to provide the interfaces for managing swapped jobs 
that are still in memory. 


PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: jmt$ijl_ordinal; 
VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] jsp$free_swap_resident_job 
( swap_resident_ijlo: jmt$ijl_ordinal; 
swap_resident_ijle_p: Ajmt$initiated_job_list_entry); 
PROCEDURE [XREF] jsp$monitor_advance_swap (ijl_ordinal: jmt$ijl_ordinal) ; 
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PROCEDURE [XREF] mmp$free_memory _in_job_queues (VAR job_page_queve_list: mmt$job_page_queue_1ist; 


increment mow: boolean; 
decrement soon: boolean; 
job_termination: boolean) ; 


PROCEDURE [INLINE] tmp$clear_lock (VAR lock: tmt$pt1_lock) ; 


IF osv$cpus_logically_on > 1 THEN 
IF lock.id <> #READ_REGISTER (osc$pr_base_ constant) THEN 


i#program_error ; {Interlock failure - no message passed for performance reasons} 
IFEND; 
IF lock.count > O THEN 
lock.count :: lock.count - 1; 
ELSE 
lock.clear :=:= 0; 
IFEND; 
IFEND; 


PROCEND tmp$clear_ lock; 
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PROCEDURE [INLINE] tmp$set_lock (VAR lock: tmt$pt1_lock); 
VAR 
b: boolean, 
be: integer; 


IF osv$cpus_logically_on > 1 THEN 


be := #read_register (osc$pr_base_constant); 
IF lock.id <> be THEN 
REPEAT 


#TEST_SET (lock. locked, b); 
UNTIL NOT 6; 
leck.id :: bc; 
ELSE 
lock.count : =: lock.count + 1; 
IFEND; 
IFEND; 
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ROCEND tmp$set_ lock; 


Global) variabies referenced by this moduie. 


VAR 
gmv$nuli_ijl_ordinal: [XREF] jmt$ijl_ordinal; 


AR 
jsv$ijl_serial_leck: [XREF] tmt$pt1_lock; 


VAR 
jsv$ijl_swap_queue_list: [XREF] jst$ijl_swap_queue_ list; 
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used for another purpose. The count represents the number of pages that are in the free + availabie 


queues. The count is broken into two parts - pages with mo 10 active, and pages with I0 active. 


VAR 
mmv$reassignable_page_ frames: [XREF] mmt$reassignable page_ frames; 


PURPOSE: procedure mtp$error_stop 


Prefixes ‘ERR=VEO0S1000-‘ to the string and calls mtp$step_unstep_system to write string and step system} 


PROCEDURE [XREF] mtp$error_stop (text: string(*<=63) ); 


Global variables defined by this module. 
VAR 


Maximum time a job will stay Swapped without initiating swapout I0 after it has 
exceeded its think time. 


jsv$max_time_swap_io_nmot_init: [XDCL, #GATE] integer := 100000000, 


Maximum time a job will stay Swapped with swap I0 completed and memory resident 
after it exceeds its think time. 


jisv$max_time_swap_io_complete: [XDCL, #GATE] integer := 200000000, 


After exceeding think time by this much, a job becomes a good candidate to be 
removed from memory if memory is low. 


isv$think_expiration_time: [IXDCL, #GATE] integer :: 15000000; 
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1524 

1525 PROCEDURE select best candidate 

1526 ( first_ijl_queue_ link: jmt$ijl_ordinal; 

1527 VAR selected jobs_ijl_ordinal: jmt$ijl_ordinatl; 
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1828 VAR selected jobs_ijle_p: Ajmt$initiated, job _list_entry) ; 


© 

° 

A 

A 

A 

a 

A 1530 { 

A 1531 { 

& 1532 { specified ijl queue link. 

A 1533 { longest estimated ready time. 

A 1534 { 

A 1535 

A 1536 VAR 

a 1537 ijle_p: AjmtS$initiated_job_list_entry, 

& 1538 ijl_ordinal: jmt$ijl_ordinal, 

A 1539 max_ijle_p: Ajmt$initiated_job_list_entry, 
A 1540 max _ijlo: jmt$ijl_ordinal, 

A 1541 min_ijle_p: Ajmt$initiated job_list_entry, 
A 1542 min_ijlo: jmt$ijl_ordinal, 

A 1543 max estimated ready time: integer, 

A 1544 min_estimated ready time: integer ; 

A 1545 

A 1546 ijl_ordinal :: first _ijl_queue_ Tink; 

& 1547 max estimated ready _ time := 0; 

ray 1548 min_estimated ready _ time := OFFFFFFFFFFFF( 16); 
A 

A 


1550 REPEAT 


The purpose of this procedure is to select a job from the swap queue initiated by the 
The job is selected that most exceeds think time or has the 


12 1551 imp$get_ijile_p (ijl_ordinal, ijte_p); 

12 1552 IF ijle_p%.estimated_ready time > max_estimated ready_time THEN 
3E 1553 max estimated ready time := ijle pA.estimated ready time; 

3E 1554 max_ijlo := ijl_ordinal; 

3E 18s5 max ijle op : = ijle_p; 

4C 1556 IFEND ; 

4C 1557 IF ijle_pA.estimated ready time < min_estimated ready time THEN 
5&8 1558 min_estimated ready time := ijle_pA.estimated ready _ time; 

58 1559 min _ijlo := ijl_ordinal; 

58 1560 min lijle_p : 2 ijle_p; 

66 1561 IFEND ; 

66 1562 

66 1563 ijl_ordinal : = ijle_ pA.swap_ queue Tink. forward link; 

66 1564 UNTIL ijl_ordinal = jmv$nul1_ijl_ordinal; 

7E 1565 

7E 1566 IF (#FREE RUNNING CLOCK (0) - min_estimated ready _ time) > jsv$think_ expiration time THEN 
$2 1567 selected jobs_ijl_ordinal := min_ijlo; 

$2 1568 selected jobs _ ijle p := min ijile_p; 

A2 1569 ELSE 

AZ 1570 selected jobs_ijl_ordinal := max_ijlo; 

A2 1571 selected jobs_ijleé_p := max_ijle_p; 

AE 1572 IFEND; 

AE 1573 

AE 1574 PROCEND select best candidate; 
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° 1576 

o 18577 PROCEDURE [XDCL] jsp$adv_expired_swapped_ jobs 

° 1578 { swap_queue_id: jst$swapped_but_still_in memory) ; 

° 15793 

ce] 1580 { 

° 1581 { The purpose of this procedure is to advance jobs that are swapped but still in memory 
° 1582 { that nave exceeded the maximum time that can be spent in the respective Swap queue. 
© 1883 { 

° 1584 

° 1585 VAR 

© 1586 current_time: integer, 

° 1587 ijl_ordinal: jmt$iji_ordinal, 

° 1588 ijle_p: Ajmt$initiated job_list_ entry, 

© 1589 next _ijl_ordinal: jmt$ijl_ordinal, 

© 1590 time limit: integer ; 

° 1591 

ce) 1592 current _time := #FREE RUNNING CLOCK (0); 

c 1593 IF swap _queue_id = jsc$isqi_swapped_io_not_imit THEN 

16 1594 time limit := jsv$max_time_swap_io_not_init; 

22 15985 ELSEIF swap_queuve_id = jsc$isqi_swapped_io_completed THEN 

28 1596 time_limit := jsvSmax_time_swap_io_complete; 

36 1597 ELSE 

36 1598 

36 1599 { Unexpected swap queue identifier. 

36 1600 

36 1601 RETURN; 

38 1602 IFEND; 

38 1603 

38 1604 { There is the possibility of a timing problem here. If task switch decides 
38 1605 { to swap in the job that is saved as next_ijl_ordinal, we would cross over 
38 1606 { to the swapping queue. Therefore a check is made to see if we are still 
38 1607 { in the right queue. If not, just exit and try again next time (called by 
38 1608 { periodic). 

38 1609 

38 1610 ijl_ordinal :: jsv$iji_swap_queue_list [swap_queue_id]. forward link; 

38 1611 

38 1612 /leop/ 

38 1613 WHILE ijl_ordinmal <> jmv$null_ijil_erdinal Do 

5C 1614 imp$get_ijle_p (ijil_ordinal, ijlte_p); 

sc 1615 IF ijle_ p”.swap_queue_ Tink.queue id = swap queue id THEN 

gC 1616 next _ijl_erdinal := ijle_ pA.swap_ queue _ Tink. forward _1i1nk; 

&8C 1617 IF (ijle_pA.estimated_ready time + time_limit) < current _time THEN 
SH 1618 isp$monitor_advance_swap (ijl_ordinal); . 

AA 1619 IFEND; 

AE 1620 ELSE 

AE 1621 EXIT /loop/; 

BO 1622 IFEND; 

BO 1623 ijl_ordinal := next _ijl_ordinal; 

BO 1624 WHILEND /loop/; 

cé 1625 

C8 1626 PROCEND jsp$adv_expired_swapped_jobs; 
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° 1628 
ce) 1629 PROCEDURE [XDCL] jsp$initiate_swapout_io 
ce] 1630 { pages needed: mmt$page_frame_index) ; 
ce] 1631 : 
ce] 1632 { 
° 1633 { The purpose of this procedure is to initiate the swapout I0 on Swapped jobs 
ce] 1634 { that have not had I10 initiated to make memory available. Jobs are advanced 
3° 1635 { until 10 is initiated on enough pager to bring mmv$reassignablie_ page frames.now + .soon 
te) 1636 { up to the number of pages requested or until all jobs have had swapout I10 initiated. 
eo 1637 { 
ce) 1638 
ce] 1639 VAR 
o 1640 ijle_p: Ajmt$initiated_job_list_entry, 
° 1641 ijl_ordinal: jmt$ijl_ordinal, 
oO 1642 pages _io_initiated_ on: integer, 
° 1643 pages _to_initiate_io_on: integer, 
ce) 1644 selected jobs _ijle_p: Ajmt$initiated job_list_entry, 
o 1645 selected jobns_ijl_ordinal: jmt$ijl_ordinal; 
° 1646 
Oo 1647 #keypoint (osk$entry, 0, jsk$initiate _swapout_io) ; 
8 1648 
& 1649 pages_io_initiated_on := 0; 
8 1650 pages_to_initiate_io_on := pages _ needed - (mmv$reassignable_ page_frames.now + 
8 1651 mmv$reassignable_page_frames.soon}); 
8 1652 
8 1653 WHILE pages _ to initiate _io_on > pages_io_initiated on DO 
26 1654 tmp$set_lock (jsv$ijl_serial_lock); 
SE 1655 ijl_ordinal : = jsv$ijl_swap_queue_ list [ jsc$isqi_swapped_io_not_init].forward_1link; 
SE 1656 
SE 1657 IF ijl_ordinal = jmv$nul1_ijl_ordinal THEN 
76 1658 tmp$clear_ lock (jsv$ijl_seriail_lock); 
AE 1659 #keypoint (osk$exit, O, jsk$initiate_swapout_io); 
B2 1660 RETURN; 
B4 1661 IFENDO; 
B4 1662 
B4a 1663 select _best_candidate (ijl_ordinal, selected jobs_ijl_ordinal, selected_jobs_ijle_p); 
CA 1664 tmp$clear_lock (jsv$ijl_serial_lock) ; 
102 1665 
1902 1666 jisp$monitor_advance_swap (selected_jobs_ijl_ordinal) ; 
116 1667 pages_io_initiated_on := pages _io_initiated _on + selected jobs_ijle_pA.swap_data.swapped_job_page_count; 
116 1668 WHILEND; 
124 1669 
124 1670 #keypoint (osk$exit, 0, jsk$initiate_swapout_io); 
128 1671 
128 1672 PROCEND jsp$initiate_Swapout_io; 
SOURCE LIST OF jsm$Sswapped_job_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
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PROCEDURE [XDCL] jsp$free_ swapped_jobs_memory [ 
ijl_erdinal: jmt$ijl_ordinal); 


The main purpose of this procedure is to select a Swap-resident job {(Swapout I0 has completed) 
and free its memory. The job selected is the one that most exceeds think time or has 

the longest estimated ready time. A null ijl ordinal passed into this procedure indicates 
that memory manager needs memory from ANY Swap resident job. A job is selected from the 
Swapped_io_completed queue; if mo jobs can be found in that queue, it is because all S2 

jobs have been readied by dispatcher on another processor. The $2 job nas been relinked to 
the swapping queue to Swap in when Swapper next executes. Tne memory is still available to 

be freed; the Swapping queue must be searched to find the S2 job. 

A second use of the procedure is to free the memory of a specific Swap resident job so the the 
memory used by the job can be given to a task meeding contiguous memory. Memory manager selects 
the job to be freed and passes in the job’s ijl ordinal. 


VAR 
swap_resident_ijle_p: AjmtS$initiated_job_list_entry, 
swap _resident_ijlo: jmt$ijl_ordinal, 
swap_resident_q head: jmt$ijl_ordinal; 


#keypoint (osk$entry, 0, jsk$free swapped_jobs_memory) ; 


IF ijl_ordinal = jmv$nul1l_ijl_ordinal THEN 
tmp$set_ lock (jsv$ijl_serial_lock); 


swap_resident_q head := jsv$ijl_swap_queue_list [ jsc$isqi_swapped_io_completed] . forward link; 
IF swap_resident_q head <> jmv$null_ijl_ordinal THEN 
select_best_ candidate (swap_resident_q_ head, swap_resident_ijlo, swap_resident_ijle_p); 
ELSE 
swap_resident_ijlo := jsv$ijl_Swap_queuve_list [ jsc$isqi_swapping]. forward_link; 
/find_swap_resident_job/ 
WHILE swap_resident_ijlo <> jmv$nul1_ijl_ordinal DO 
imp$get_ijle_p (swap_resident_ijlo, Swap_resident_ijle_p); 
IF swap_resident_ijle_p%.swap_ status = jmc$iss_ Swapped_io_ complete THEN 
EXIT /find_swap_resident_job/; 


IFEND; 
Sswap_resident_ijlo :* swap_resident_ijle_p4.swap_ queue link. forward link; 
WHILEND /find_swap_resident_job/; 
IFEND; 


tmp$cilear_lock (jsv$ijl_serial lock); 


IF swap_resident_ijlo <> jmv$nuli1_ijl_ordinal THEN 
jisp$free_swap_resident_job (swap_resident_ijlo, swap_resident_ijle_p); 


ELSE 
mtp$error stop (’JS-could not find swap resident job to free’); 
IFEND; 
ELSE 
isp$monitor advance swap (ijl_ordinal); 
IFEND; 


#keypoint (osk$exit, ©, jsk$free swapped _jobs_memory) ; 


PROCEND jsp$free_ swapped_jobs_ memory; 
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clear 
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REFERENCES OF ism$swapped_job_manager NOS/VE CYBIL/II 1.0 89102 
JSPSFREE_ SWAP_RESIDENT_JOB 
IDENTIFIER---- eee ee ee ene eee -DEFINED*-*+--++--*-2°->*REFERENCES 
ON LINE 

jstSio_control_information 964 102 
jistSswap_file_descriptor $78 103 
jst$swapped_but_stili_in_memory 953 1578 
jstSswapped_page_ descriptor 987 $85 
jst$S$swapped_page_ descriptors 984 $81 
jsv$ijl_serial_lock 1458 1654/P 1658/P 
jisv$ijil_swap_queue_ list 1463 1610 1655 
isv$max_time_swap_io_complete 1516 1596 
jsv$max_time_swap_io_not_init 1511 1894 
jsv$think_expiration_t ime 1521 1566 
Tock 1328 1331 1334 
Tock 1425 1433 1435 
lock 1629 1654 1654 
Tock 1629 1658 1658 

1664 1664/M 
lock 1675 1698 16398 
jock 1675 1715 1715 
lacked 1364 1435 1654 
loop 1612 1612 1621 
max _estimated ready time 1543 1547/M 1552 
max_ijle_p 1538 1555/M 1571 
max _ijlo 1540 155a/M 1570 
min_est imated ready time 1544 1548/M 1557 
min_ijle_p 1541 1560/M 1568 
min_ijlo 1542 1559/M 1567 
mmc$pq_avail 751 7197 
mmc$pq_free 750 &O9 
mmc$pq_job_fixed 791 798 810 
mmc$pq_job_working set 793 810 811 
mmc$pq shared _first_site 801 805 
mmc$pq_ shared _num_sites 802 805 
mmc$pq_shared_other 760 800 
mmc$pq_ shared _site_01 762 801 
mmc$pq_ shared _site_25 786 806 
mmc$pq_ shared task_service 755 799 
mmc$pq_swapped_io_error 789 809 
mmc$pq_ wired 753 796 
mmt$act ive_segment_table_entry 1012 890 1028 
mmt$ast_ index 1044 145 1005 
mmt$global_page_queue_ index 809 1146 
mmt$global_page_ queue_list_ent 1136 1146 
mmt$ job_page_queue_ index 810 736 1147 
mmt$ job _page queue_list 1147 100 1320 
mmt $ 1ink 1035 1013 1051 
mmt $ locked_page 1073 1057 
mmt$memory reserve request 11134 93 
mmt$page_age 1080 1060 1084 
mmt$page_frame_index 973 965 967 

1630 
mmt$page_frame_queue_id 811 S66 1021 

xt REFERENCE ABBREVIATIONS M=modify, 


REFERENCES OF ism$swapped_job_manager NOS/VE CYBIL/II 
JSPSFREE SWAP_RESIDENT_JOB 
IDENTIFIER------+ e+ - ee eee ~~ - *DEFINED-----++-+-2e-s--- ~REFERENCES 
ON LINE 
mmt$page_frame_table_entry 1050 988 
mmtS$page queue list entry 1132 1137 
mmtSreassignabie_page_ frames 1490 1487 
mmv$reassignable_page_ frames 1487 1650 
mtpSerror_stop 1501 1720 
next ijl_ordinal 1589 1616/M 
now 1491 1650 
osc$free running clock maximum 445 442 
osc$invalid_ring 866 906 
osc$max_number_of processors 1353 1348 
osc$max_page_ frames 816 140 
1491 
osc$max_page_ table_entries 817 820 
osc$max_ring 865 SOs 
osc$max_segment_length 889 912 
osc$max_tasks 1106 1103 
osc$maximum_offset 888 889 
osc$maximum_processors 1357 1353 
osc$maximum_segment 887 908 
osc$min_ring 864 907 
osc$pr_base_ constant 1387 1331 
osc$task_time_slice_ maximum 434 437 
osk$entry 1254 1647 
osk$Sexit 1255 1659 
osk$system_class 1268 1252 
ost$asid 852 84 
ost$cp_time 550 518 
ost$cp_time_value 548 126 
ost$free_ running clock 442 95 
374 
ost$global_task_id 1097 8&9 
ost$key_ lock value 901 898 
ost$page_id 822 832 
ost$page _table_entry 827 836 
ost$page table _ index 820 836 
ostSpaging statistics 586 564 
ost$ring 906 918 
ost$segment 908 919 
ost$segment_offset 909 849 
ost$system_virtual_address 847 1063 
ost$task_index 1103 1091 
ost$task_time_slice 437 423 
osv$cpus_ logically _on 1348 1330 
pages _io_initiated_on 1642 1648/M 
pages needed 1630 1650 
pages to_initiate_io_on 1643 1650/M 
queue_id $51 1615 


xeEx 


REFERENCE ABBREVIATIONS 


: Memodify, 


1.0 89102 


1066 
1147 


1651 


1623 


1664/P 
1700 


1335/M 
1437/M 
1654/M 
1658/M 
1698/M 
1715/M 
1698 

1624 


1553/M 


1558/M 


1061 


1052 


1084 
968 


1055 


Azrattribute, 


735 
14933 


909 


1098 


1654 


1653 


1653 


Azattribute, 


1698/P 
1704 


1335 
1439 /M 
1654/M 
1658 


1698/M 
1715 


1566 


1133 


$63 


S=ssubscript, 


737 
1494 


1658 


1255 
1003 


1658 


1667/M 


Szsubscript, 
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e 

171S/P 

1337/M 

1439 

1654 

1658/M 1664 1664 1664/M 

1698 

1715/M 

1037 1037 1116 1117 

I=I/O ref, Rtread, Wewrite, Pzparameter 
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9373 1014 1134 1140 

1664 1698 1715 

1256 1257 1258 

1004 10183 

132 142 143 144 

1664 1698 1715 

1667 


1211/0 ref, 


Reread, Wewrite, 


P=parameter 


REFERENCES OF 


ism$swapped_job_manager 


JSPS$FREE_SWAP_RESIDENT_JOB 


IDENTIFIER----- eee ee eee 


select best _ candidate 
selected jobs_ 
selected jobs 
selected jobs_ 
selected jobs_ 
sft$counter 
soon 

swap_data 
swap_queue_id 
Swap _queue_ link 
Swap_resident_ijle_p 
swap _resident_ijlo 
swap_resident_q head 
Swap_status 
Swapped_job_page_count 


ij) 


ijle_p 
ijle_p 


time  Timit 
tmp$ciear_ lock 
tmp$set_ lock 
tmt$pt 1_ lock 
tmt$task_queue_ Tink 


ijl_ordinatl 
ordinal 


SOURCE LIST OF mmm$asid_page_table_manager 


MOS/VE Memory Management : 


OornrtonowawW 


10 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
16 { 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


PURPOSE 
This module contains the memory modules for managing the page table and ASIDs. 
There are three functional 
here since they are reiated: 


ASID MANAGEMENT 


PAGE TABLE MANAGEMENT 


NOS/VE CYBIL/II 


MODULE mmm$asid_page_table_manager ; 


groups of procedures 


PAGE TABLE FULL MANAGER - 


Manage Page Table and ASIDs 


mmp$assign_as 


NOS/VE CYBIL/II 1.0 8910602 
Se SAS aS DEFINED-<---*---------+---REFERENCES 
ON LINE 

1525 1574 1663 
1527 1567/M 1570/M 
1645 1663/P 1666/P 
1828 1568/M 1571/M 
1644 1663/P 1667 
S96 565 566 
1492 1651 

101 1667 
1578 1593 1595 

8&3 1563 1615 
1691 1702/P 1707/P 
1692 1702/P 1704/M 
1693 1700/M 1701 

77 1708 

140 1667 
1590 1594/M 1596/M 
1328 1341 1658 
1425 1443 1654 
1361 1328 1425 
1090 10589 

eX REFERENCE ABBREVIATIONS Mzmodify, 


1.0 89102 


id 


1702 


1610/S 
1616 
1708 
1706 
1702/P 


1617 
1664 
1698 
1458 


Azattribute, 


in this module. 


mmp$Sassign_specific_asid 


mmp$free_asid 
mmp$change_as 


mmp$reclaim_ast_entries 


id 


mmp$make_pt_entry 

mmp$delete_ pt_entry 
clear_continue bits 
free pt _entry_in_avail_ queue 


mmp$process page table full 
build_asid_list 


reassign_asid 


1989-08-21 13:33:34 
1615 
1711 
1711 1718/P 
1706 1707/P 1711/M 1717 171 
1715 
Szsubscript, I:I1/0 ref, Reread, Wewrite, 


1889-08-21 


The modules are grouped 
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&/P 


Pzparameter 
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SOURCE LIST OF mmm$asid_page_table_manager 


Giliobal 


SOURCE 


Global 


NOS/VE CYBIL/II 


Declarations Referenced by This Module 


° 841 
° 842 PROCEDURE [INLINE] gfp$mtr_get_locked_fde_p (sfid: 
° 843 ijle_p: Ajmt$initiated_job_list_entry; 
° &4a VAR fde_p: gft$locked file desc_entry p); 
° 845 
° 846 
o 2061 PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: 
© 2062 VAR ijle_p: Ajmt$initiated_job_list entry) ; 
° 2063 
2071 
2072 FUNCTION [INLINE] jmp$ij1_block_valid 
2073 ( ijl_ordinal: jmt$ijl_ordinal): boolean; 
2074 
2075 imp$ijl_block_valid := 
2076 
2077 FUNCEND jmp$ij1_block_valid; 
2078 
2079 PROCEDURE [INLINE] jmp$untock_ajl 
2080 ( ijle_p: Ajmt$initiated job_list_entry) ; 
2081 
2082 VAR 
2083 ajilo: jmt$aji_ordinal; 
2084 
2085 tmp$set_lock (tmv$pti1_lock) ; 
2086 ajtlo := ijle_prA.ajl_ordinal; 
2087 IF (jmv$ajl_p% [ajlo].in_use = jmc$lock_aj1) THEN 
2088 jmp$free_aji_with_lock (ijle_p, jmce$lock_ajl); 
2089 ELSE 
2090 jmv$ajl_p% [ajlo].in_use : = jmv$ajl_p* 
2091 IFEND; 
20982 tmp$clear lock (tmv$pt 1_lock) ; 
20933 
2094 PROCEND jmp$unlock_ajl; 
20395 
° 2208 
o 2208 PROCEDURE [XREF] jsp$recalculate_swapped_pages 
oO 2210 ( ijte_p: Ajmt$initiated_job_list_entry; 
Oo 2211 pages_removed: mmt$page_frame_index) ; 
3° 2212 
2215 
2216 PROCEDURE [XREF] mmp$asid (asti: mmt$ast_ index; 
2217 VAR asid: ost$asid); 
2218 
Oo 2221 PROCEDURE [XREF] mmp$asti (asid: ost$asid; 
° 2222 VAR asti: mmt$ast_index) ; 
° 2223 
2226 
2227 PROCEDURE [XREF] mmp$aste_pointer (asid: ost$asid; 
2228 VAR aste_p: AmmtS$active_ segment _tablie_entry); 
2229 
ce) 2232 
oO 2233 PROCEDURE [INLINE] mmp$delete_last_pfti_from_array; 
22393 
2240 PROCEDURE [INLINE] mmp$find_ next _pft i 
2241 (VAR xpfti: mmtS$page_frame_index) ; 
2242 


LIST OF mmm$asid_page_ table manager 


Declarations Referenced by This Module 


2260 

2261 

2262 PROCEDURE [XREF] mmp$free_image_pages_mtr; 
2263 

2264 

2265 PROCEDURE [INLINE] mmp$get_inhibit_io_status 
2266 i ijl_ordinal: jmt$ijl_ordinal; 

2267 lock: boolean; 

2268 VAR inhibit _io: boolean; 

2269 VAR ijle_p: Ajmt$initiated_job_list_entry); 
2270 

2271 VAR 

2272 ajilo: jmt$ajl_ordinal, 


jmp$get_ijle_p (ijl ordinal, 
inhibit io :5 
IF NOT 
2277 IF 


ijle_p); 


inhibit io THEN 
lock THEN 
tmp$set_lock (tmv$pt1_tlock) ; 


jmp$lock_ajl_with_lock (ijle_p, ijl_ordinal, 


(oMoMe Meme MeoMe Mee MeoMeMeMeoMeMomemeomeM—eieMeoMomememeie) 
Nn 
N 
~I 
uW) 


2280 tmp$ciear_lock (tmv$pti1_lock) ; 

2281 IFEND; 

2282 IFEND; 

2283 

2284 PROCEND mmp$get_inhibit_io_ status; 

2285 

2326 . 

2327 PROCEDURE [INLINE] mmp$get_max_sdt_pointer 
2328 ( xcb_ p: Aost$execution_ control block; 
2329 VAR sdt_p: mmt$max_sdt_p) ; 

2330 


FUNCTION [INLINE] mmp$get_sdt_entry _p 


NOT (jmv$ijl_p.block_ pA [ijl_ordinal.block number ] 


[ajlo].in_use - 


(ijle_pA.swap_status > jmc$inhibit_ 


1.0 89102 


gftS$system_file_ identifier ; 


jmt$ijl_ordinatl; 


imec$lock_ajl; 


NOS/VE CYBIL/II 1.0 8910602 


memory _manager_io) ; 


ajlo); 


° 
° 
oO 3463 ( xcb_ p: Aest$execution_ control block; 
oO 3464 segnum: ost$segment): Ammt$segment_ descriptor ; 
Oo 3465 
oO 3466 mmp$get_sdt_entry_p :: #address (1, #segment (xcb_p), 
Oo 3467 8 * segnum + xcb_ pA.sdt_offset); 
oO 3468 
o 3469 FUNCEND ; 
o %3470 
3473 PROCEDURE [XREF] mmp$initialize_find_next_pfti (xsva: ost$system_virtual_ address; 
3474 length: ost$segment_length; 
3475 end_point_option: (include partial _pages, exclude partial pages); 
3476 page _selection_criteria: mmt$page_ selection_criteria,; 
3477 aste_p: AmmtS$active_segment_table_entry; 
3478 VAR xpfti: mmt$page_frame_index) ; 
3478 


PROCEDURE [INLINE] mmp$nudge_per iodic_cal1; 


mmv$t ime_to_call_mem_mgr 


= 0; 
osv$time_to_check_asyn := 0; 


PROCEND mmp$nudge_periodic_ call; 


eoo0000000 
Ww 
> 
o 


-index p = 


1889-08-21 


NIL); 


1989-08-21 
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SOURCE LIST OF mmm$asid_page_table_manager 


Global 


SOURCE 


Giebal 


NOS/VE CYBIL/II 1 


Declarations Referenced by This Module 


000000 


o000000 


0000000 


00000 


000 


LIST OF mmm$asid_page_table_manager 


3504 


PROCEDURE [XR 


PROCEDURE [XR 
ijle_p: 

VAR mcount: 
VAR rcount: 


PROCEDURE [IN 
(VAR xpfti: 


PROCEDURE [XR 
ijle_p: 
ijl_ord 

VAR state: 
VAR xcb_p: 


VAR 
dsv$ssr_sdt 


{Monitor segmen 
VAR 
mtv$monitor 


st: ALIGN 
recend; 


{NOS segment ta 


VAR 


-9 89102 


1989-08-21 


EF] mmp$relink_page_frame (pfti: mmt$page_frame_index; 
queue _ id: mmt$page_frame_queue_ id); 


EF] mmp$remove_page_from_jws (pfti: 


Ajmt$initiated _job_list_entry; 
integer ; 
integer ); 


LINE] mmp$reset_find_next_pfti 
mmt$page_frame_index) ; 


EF] tmp$find_next_xcb (search: tmt$fnx_search_type; 


AjmtS$initiated job_list_entry; 
inal: jmt$iji_ordinal; 
tmt$find_next_xcb_state; 
Aost$execut ion_control_ block) ; 


e: [XREF] mmt$segment_ descriptor ; 


t table. } 


_segment_tabie: [XREF] record 
ED [0 MOD 8] array [0 .. 4095] of 
ble. 


mtv$nos_ segment table _p: [XREF] 4 RECORD 
ED [O MOD 8] array [0 .. *] OF mmt$segment_descriptor, 


st: ALIGN 
RECEND ; 


VAR 


mmt$page_frame_index; 


mmt$segment_ descriptor, 


jmv$max_aji_ordinal_in_use: [XREF] jmt$ajl_ordinat; 


{Define pointer 


VAR 
imv$iji_p: 


VAR 
imv$nuli_ij 


to Initiated Job List (IJL). 


[XREF] jJmt$Siji_p; 


l_ordinal: [XKREF] jmt$ijl_ordinal; 


NOS/VE CYBIL/II 1 


Declarations Referenced By This Module 


° 


60000 


0000000 0000000 


9000000 


00000 


3634 


3638 
3639 
3640 
3641 
3642 


3655 
3656 
3657 
3658 
3659 


3663 
3664 
3665 
3666 


3670 
3671 
3672 
3673 
3674 
3675 
36876 


3678 
36793 
3680 
3681 
3682 
3683 
3684 


3686 
3687 
3688 
3689 
3690 
3691 


3635 
3696 
3697 
3698 
36399 


.9 89102 


{Define async worklist for processing periodic activities. 


VAR 


mmvS$async_work: [XREF] mmt$async_work_list; 


{Pointer to the 


VAR 
mmv$ast_p: 


VAR 
mmv$ image_ f 


{The following 
{purge is requi 


VAR 
mmv$multip. 


Active Segment Table - (AST).} 


[XREF] Ammt$act ive_segment_table; 


ile: [XREF] mmt$image_file; 


1989-08-21 


variable indicates if the configuration consists of multiple 
{caches that are not nardware connected for unified cache purging - 


red each processor must purge its 


e_caches: [XREF] boolean; 


own cache. 


ie, if a cache 


he following variable indicates if the configuration consists of multiple 
are not hardware connected for unified map purging 
purge is required each processor must purge 


{T 
{page MAPS that 
{if a page map 


VAR 
mmv$multipt 


{Define pointer 
{PFTIs of pages 


VAR 
mmv$pfti_ar 


{Pointer to the 


VAR : 
mmv$pft_p: 


e_page_ maps: [XREF] boolean; 


to array for holding PFTI lists. 
belonging to a segment. 


ray_p: [XREF] Ammt$pfti_array; 


‘PAGE FRAME TABLE’ (PFT) 


[XREF] Ammt$page_frame_table; 


This array 


je, 


its Own map. 


is used 


in monitor for holding lists 
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Glebal Deciarations Referenced by This Module 


3703 {Define page table length in words. 


3704 

3705 VAR 

3706 mmv$pt_ length: [XREF] integer; 
3707 


3709 {Pointer to the system PAGE TABLE (PT). 


3719 
3711 VAR 
3712 mmv$pt_p: [XREF] Aost$page_tabie; 
3713 
i) 3717 
° 3718 VAR 
o 3719 mmv$test_reassign_asid: [XREF] boolean; 
° 3720 
© 3722 {System page size. } 
ce) 3723 
} 3724 VAR 
Oo 3725 osv$page_ size: [XREF] ost$page_size; 
ce) 3726 
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Global Statistics Kept By Module 


3730 { the following is used for debugging trace information: 


3731 

3732 PROCEDURE [INLINE] trace 

3733 ( id: integer; 

3734 inc: integer); 

3735 

3736 mmv$aptm_ trace [id] ::* mmv$aptm_trace [id] + inc; 
3737 PROCEND trace; 

3738 

3739 CONST 

3740 mmc$ap_low_asids = 1, 

3741 mmc$ap_no_asids = 2, 

3742 mmc$ap_ast_reset = 3, 

3743 mmc$ap_free_aste = 4, 

3744 mmc$ap_assign = 5, 

3745 mmc$ap_assign_ specific = 6, 
3746 mmc$ap_casid swapped job = 7, 
3747 mmc$ap_casid_ monitor = 8, 

3748 mmc$ap_casid_template = 10, 
3749 mmcS$ap_casid_globail = 11, 

3750 mmc$ap_casid job = 12, 

3751 mmc$ap_recilaim_asids = 13, 
3752 mmc$ap_mpte_ full = 14, 

3753 mmc$ap_mpte_ recovered = 15, 
3754 mmc$ap_mpte_rect = 16, 

3755 mmcS$ap_mpte_rec2 = 17, 

3756 mmc$ap_ptf_ called = 18, 

3757 mmc$ap_ptf_ tried = 19, 

3758 mmcS$ap_ptf_ failed = 20, 

3759 mmc$ap_ ptf remove = 21, 

3760 mmc$ap_rea_ called = 22, 

3761 mmc$ap_rea_in_free = 23, 

3762 mmc$ap_rea_mpte_ fail = 24, 
3763 mmc$ap_ rea_ok = 25, 

3764 mmc$ap_rea_ok1 = 26, 

3765 mmc$ap_rea_ok2 = 27, 

3766 mmc$ap_rea_ok3 = 28, 

3767 mmc$ap_rea_ok4 = 29, 

3768 mmc$ap_rea_fail = 30, 

3769 mmc$ap_rea_faill = 31, 

3770 mmc$ap_rea_fail2 = 32, 

3771 mmc$ap_rea_quit = 33, 

3772 mmc$ap_unused 34 = 34, 

3773 mmc$ap_unused_ 35 = 35, 

3774 mmcGap_rea_make_pt_entry = 36, 
3775 mmc$ap_ba_ freed _terj = 37; 
3776 

3777 { The following table keeps statistics on page table full procesing. 
3778 

3779 TYPE 

3780 mmt$pt_full_trace_ info = record 
3781 timestamp: integer, 

3782 changed _asid: 0 .. OF FFFFFFF(IE), 
3783 failed: 0 .. OF fFFFFFFF(IE), 
3784 pass: array [reassign pass] of 0 .. OF FFFFFFF(16), 


3785 last _sva: ost$system_virtual_address, = 


SOURCE LIST OF mmmSasid_page_ tabie_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 


Giebal Statistics Kept By Module 


3786 index: Oo .. 65535, 
3787 asid: array [0 .. 127] of record 
3788 old: ostS$asid, 
37893 new: ost$asid, 
3790 recend, 
3791 recend; 
3792 
3733 VAR 
3794 mmv$pt_full_trace: [XDCL] mmt$pt_full_trace_info, 
3795 mmv$aptm_trace: [XDCL] array [0 .. 50] of O .. OF FFFFFFF( 16); 
3796 
SOURCE LIST OF mmm$asid_page_table_manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 


Glebal Declarations Declared by This Module 


3798 

3799 VAR 

3800 changing _asid: ost$asid := 0, 

3801 chang?ng_aste_p: AmmtS$active_segment_table_entry := NIL, 

3802 mmv$continue_ bit count_p: [XDCL, #GATE] Ammt$continue_bit_ count, 

3803 mmv$max_template_ segment number: [XDCL, #GATE] integer := mmc$first_loader_ predefined _seg, 
3804 mmv$mf wired _asid: [XDCL, #GATE] mmt$mainframe_wired_asid := [0, 0], 

3805 mmv$number_free_astes: [XDCL, #GATE] integer, 

3806 mmv$pages_to_dump_p: [XDCL, #GATE] Apacked array [O .. * ] of boolean := NIL, 

3807 mmv$pt_search: integer {4 .. 32} := 32, 

3808 mmv$time_ changed global_asid: [XDCL] ost$free running clock := OF FFFFFFFFFFF(IE), 
3809 mmv$time_changed _template_asid: [XDCL] ost$free running clock :: OF FFFFFFFFFFF( 16) ; 


3810 
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Intine Procedures From Common Decks 


3813 

3814 PROCEDURE [INLINE] mmp$purge_all_cachne_map; 

3815 

3816 VAR 

3817 null_sva: 0 .. OF FFFFFFFFFFF(16); 

3818 

3819 IF mmv$multiple_caches OR mmv$multiple page maps THEN 
3820 mmp$purge_all_cache_map_proc; 

3821 ELSE 

3822 #purge_buffer (osc$purge_all_cache, nulil_sva)j; 

3823 #purge_ buffer (osc$purge_all_page_seg map, nmull_sva); 
3824 IFEND ; 

3825 


3826 PROCEND; 


o 3832 PROCEDURE [INLINE] mmp$purge_all_page_seg_map; 
3° 3833 

° 3834 VAR 

° 3835 nmull_sva: O .. OF FFFFFFFFFFF( 16); 

° 3836 

© 3837 IF osv$cpus_logically_on > 1 THEN 

© 3838 mmp$purge_ali_map_proc; 

° 3839 ELSE 

© 3840 #purge buffer (osc$purge_all_page_seg_ map, null_sva); 
° 3841 IFEND; 

° 3842 

ce) 3843 PROCEND; 
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[XOCL] mmp$assign_asid 


Oo 3850 { PURPOSE: 

° 3851 { This procedure is calied to find an available entry in the AST table, assign the entry and 
° 38as52 { return an ASID for the entry. If no AST entry is available, the routine HALTS. This Should never 
° 3853 { happen since there are more ASIDS than page frames, and ASIDS not currently being used by any 
° 3854 { page frames can he reassigned. 

o 3855 { 

o 3856 { DESIGN 

° 3857 { This procedure searches the AST for an entry that is free and has been free since before 
° 3858 { the ltast time CACHE and MAP were purged. If necessary, this routine will reciaim AST entries 
o 3859 { assigned to segments/files if mo pages are currently assigned to the segment 

° 3860 

o 3861 VAR 

oO 3862 next_asti: [STATIC] mmt$ast_index := 1; 

Oo 3863 

o 3864 

Oo 3865 PROCEDURE [XDCL] mmp$assign_asid 

4 3866 (VAR asid: ost$asid; 

4 3867 VAR asti: mmt$ast_index; 

4 3868 VAR aste_p: Ammt$active_segment_tabie entry); 

4 3869 

4 3870 VAR 

4 3871 zaste_p: Ammt$active_segment_table_entry, 

4 3872 last_purge_ time: [STATIC] integer := 1; 

4 3873 

4 3874 

4 3875 { If there are NO free entries, call reclaim unused entries right now since an entry MUST be 
4 3876 { assigned. If the number of free entries is too small, force a cali to MM periodic to do 

4 3877 { the reclaiming as soon as possible. 

4 3878 

4 3879 IF mmv$number_free_astes < 30 THEN {30 is arbitrary number } 

14 3880 IF mmv$number_free_astes = © THEN 

18 3881 trace (mmc$ap_no_asids, 1); 

18 3882 mmp$reclaim_ast_entries (0); 

34 3883 IF mmv$number_free_astes = 0 THEN 

3c 3884 mtpS$error_stop (‘MM26 - AST full’); 

SA 3885 IFEND; 

SE 3886 ELSE 
SE 3887 trace (mmc$ap_low_asids, 1); 
SE 3888 mmv$async_work.reclaim_astes := TRUE; 

SE 3889 mmp$nudge_periodic_caltl; 

86 3890 IFEND; 

86 3891 IFEND; 
86 3892 

86 3893 mmv$number_ free _ astes := mmv$number_free_astes - 1; 

8& 3894 


8&6 3895 { Find and assign a free AST entry. CACHE and MAP must be purged when the AST assignment algorithm wraps 
86 3896 { around and reassigns entries that may still be in cache or map. Note that free entries cannot be reused 
86 3897 { until a purge occurs. 


86 3898 

86 38989 REPEAT 

90 338300 mext_asti :2 mext_asti - 1; 

$o 3901 IF nmext_asti = © THEN 

9E 3902 next _asti :* UPPERBOUND (mmv$ast_p4); 

SE 3903 last _purge time := #FREE RUNNING CLOCK (0); 


BA 3904 mmp$purge_all_cache_map; 
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ASTID MANAGEMENT 
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EE 39305 trace (mmc$ap_ast_reset, 1); 
F& 3906 IFEND ; 
F& 3907 UNTIL NOT mmv$ast_pA [next_asti].in_use AND (mmv$ast_pA [next_asti].time_freed < last_purge_ time) ; 
130 3908 
130 3909 asti := next_asti; 
130 3910 aste_p := AmmvSast_pA [next_astil]; 
130 3911 asid := aste p’.asid; 
130 3912 aste pr.in_use := TRUE; 
130 3913 trace (mmc$ap_assign, 1); 
130 3914 
130 3915 IF mmc$debug THEN 
130 3916 mmpSaste pointer f{asid, zaste_p); 
188 3917 IF zaste_ p <> aste_p THEN 
198 3918 mtp$error_stop (’MM - bad ASID in assign ASID0’); 
1B8 39319 IFEND; 
1B8 3320 IFEND; 
1B8 3921 
1B8 3922 
1B8 3923 PROCEND mmp$Sassign_asid; 
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ASID MANAGEMENT 
[XDCL] mmp$assign_specific_asid 


Oo 3925 { PURPOSE: 
o 3926 { This procedure is used by the Job Swapper to reclaim a specific ASID for swapin. No cache/map 
° 3927 f{ purging 1s required since the ASID will be reciaimed ONLY if it is currentiy free AND has not 
° 3928 { been used by another job while the reclaiming job was swapped out. It is important 
° 3929 { that the ASID not have been used by another job because cache/map is not purged 
o 3930 { as part of swapin. 
oO 3931 { 
Oo 3932 { DESIGN: 
i) 3933 { To reclaim an ASIDO, simply reset the in_use field. Counts of AST entries in 
oO 3934 { use are adjusted as required. 
oOo 3935 { 
© 3936 { NOTE: 
° 3937 { The caller is responsible for verifying that the ASID can correctly be reciaimed. 
° 3338 
o 3838 PROCEDURE [XDCL] mmp$assign_specific_asid 
o 3940 ( aste_p: Ammt$active segment _tabie_entry); 
o 3941 
Oo 3942 VAR 
o 3983 asti: mmtS$ast_index, 
Oo 3944 zaste_p: Ammt$active_ segment_table_ entry; 
Oo 3945 
Oo 3946 mmv$number free_astes := mmv$number_free_astes - 1; 
4 3947 trace (mmc$ap_assign_specific, 1); 
4 3948 
4 3949 IF mmc$debug THEN 
4 3950 mmp$Sasti (aste_pA.asid, asti); 
3C 3951 zaste_p := AmmvS$ast_pA [asti]; 
3c 3952 IF zaste_p <> aste_p THEN 
5c 3953 mtp$error_ stop (’MM - bad ASID in assign specific ASID’); 
7C 3954 IFEND; 
7C 3955 IF aste_p4A.in_use THEN 
84 3956 mtp$error_ stop (‘MM - assign specific of already in use’); 
AG 3957 IFEND; 
Aa 3958 IFEND; 
Aa 3359 
A4 33960 aste pA.in_use := TRUE; 
Aa 3961 


A4 3962 PROCEND mmpSassign_specific_asid; 
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[XDCL] mmp$free_asid 


o 3964 { PURPOSE: 
o 3965 { This procedure is called to free an ASID. The AST entry corresponding to the ASID is marked as free. 
° 3966 { 
Oo 3967 { DESIGN: 
o 3968 { To free an ASID, the AST entry is marked as not in use and the ASID is saved. The 
fe 3969 { time the entry was freed is saved in the AST. The timestamp is used by mmp$assign to 
° 3970 { correctly manage cache and map purges. An ASID cannot be assigned to a different segment 
fe) 39371 { until cache and map are purged. Failing to purge the cache or map will cause failures since 
oO 3972 { stale data may be used. 
Oo 3973 
o 3974 
oO 3975 PROCEDURE [XDCL] mmp$free_asid 
Oo 3376 ( asid: ost$asid; 
oO 3377 aste_p: Ammt$active_segment_table_entry) ; 
Oo 3978 
o 3973 VAR 
Oo 3980 zaste_p: Ammt$active_segment_table_entry; 
o 3981 
oO 3982 IF NOT aste_pA.in_use OR (aste_pA.pages_in_memory <> ©) THEN 
18 3983 mtpSerror_ stop (‘’MM42 - error in free ast entry’); 
38 3984 ‘IFEND; 
38 3985 
38 3986 IF mme$debug THEN 
38 3987 mmp$aste_pointer (asid, zaste_p); 
54 3988 IF zaste_p <> aste_p THEN 
64 3989 mtp$error_stop (’MM - bad ASID in free ASID’); 
&4 3990 IFEND; 
&4 3991 IFEND; 
84 39392 
84 3993 mmv$number free _astes := mmv$number_free_astes + 1; 
8&4 3994 
84 3985 aste_ pA.in use :: FALSE; 
84 3996 aste_ pAr.asid :* asid; 
84 3997 aste pA.time_freed :: #FREE RUNNING CLOCK (0); 
AB 3998 
A&B 3999 IF mmc$debug AND mmv$test_reassign_asid THEN 
BE 4000 aste_ p%.sfid.file nash := 255; 
BE 4001 IFEND; 
BE 4002 
BE 4003 trace (mmc$ap_free_aste, 1); 
BE 4004 
BE 4005 PROCEND mmp$free_asid; 
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{[XDCL] mmp$change_asid 
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4007 
4008 
4009 
40190 
4011 
4012 
4013 
4014 
4015 
4016 


{ PURPOSE: 
This procedure will change an ASID from an old value to a new value. 
All affected Segment tables, FDES, and system tables are updated as required. « 


DESIGN: 
This procedure searches a11 segment tables of ali tasks that could be using the ASID. 
The mumber of tasks and jobs to search depends on the attributes of the segment/file that is using 
the ASID. If a job that should be searched is Swapped out, a flag iS set in the IJL 
to notify the swapper that ASIDsS must be fixed on Swap-in. 


The following table shows all the types of ASIDS that can be in SDTS and the way these 


t oe Ese ote oon Eh ote Bae Bote oe Bate Bate one Bate Bate Bate Eee ote 8 te 0 ote 0 te 0 ote Bote 0 ee ote) 


ASIDS are located when they change (ie., what is searched). Note that the table is 
ordered from easiest-to-change to hardest-to-change - the number at the beginning of the line 
indicates preferred order for reassignment. 
ASID NOT SWAPPED SWAPPED 
1 local file/transient search aii XCBs in AST.IJLO dsw_job_asid_ changed 
2 perm file in JWS search all XCBs in AST.IJLO dsw_job_asid_changed 
3 perm file in shared Q search all XCBs mmv$time_changed_global_asid > timestamp 
3 template asid search all XCBs mmv$time_ changed _tempiate_asid > timestamp 
PROCEDURE [XDCL] mmp$change_asid 
( aste_p: Ammt$active_segment_tabie_entry; 
old _asid: ost$asid; 
new_asid: ost$asid; 
new_asti: mmt$ast_index) ; 
VAR 
cell_p: Acell, 
fde_p: gft$file_desc_entry_p, 
ijle_p: Ajmt$initiated job_list_entry, 
max _segnum: ost$segment, 
segnum: integer, {allow negative numbers} 
sdt_p: mmt$max_sdt_p, 
ste_p: Ammt$segment descriptor, 
xcb p: Aost$execution_control block, 
xcb state: tmt$find_next_xcb state; 
{ Get a pointer to the XCB of the first task whose segment table is to be scanned. If the job that 
{ owns the file is Swapped, this pointer will be NIL. If the job is partially swapped, this 
{ request will assign an AJL ordinal. Note that the actual XCBs scanned will be either ail XCBs in 
{ the system (if global queve_id) or just XCBs in a specific job (job queue_id). 
imp$get_ijle_p (aste_pA.iji_ordinal, ijie_p); 
IF aste_ pA.queue_id < mmc$pq_job_base THEN 
tmp$find_next_xcb (tmc$fnx_system, NIL, jmv$null_ijl_ordinal, xch_ state, xcb_p); 
ELSE 
tmp$find next_xcb (tmc$fnx_job, ijle_p, aste_pA.ijl_ordinal, xcb_ state, xcb_p); 
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A6 4062 IFEND; 

A6 4063 

AS& 4064 

A6 4065 { If the FDE is accessible (job not swapped OR tables in mainframe wired), get a pointer 
A&6 4066 { to the FDE and update the ASTI. (If the job is swapped, the FDE will be updated 

A6 4067 { on the next swap-in). If the ASID belongs to a job fixed segment, fix the ASID in the 
46 4068 { monitor segment table. 

A6 4ao69 

AGB 4070 IF (xcb p <> NIL) OR (aste_pr.sfid.residence = gfc$tr_system) THEN 

BA 4071 afp$mtr_get_locked_ fde_p (aste pA.sfid, ijle_p, fde_p); 

13C 4072 fde_ pA.asti : = new_asti; 

143A 4073 IFEND; 

144A 4074 

144 4075 IF old_asid = ijle_p%.job_fixed_asid THEN 

154 4076 ijle_p%.job_ fixed asid :* new_asid; 

154 4077 IF ijle_pA.ajl_ordinal <> jmc$null_ajl_ordinal THEN 

16E 4078 mtv$monitor segment_table.st [ijle_p*.ajl_ordinal + mtc$job_fixed_ segment)].ste.asid :: 
174 40738 IFEND; 

117A 4080 IFEND; 

117A 4081 

117A 4082 { If the job is Swapped, then set the delayed swapin flag and fix the ASIDS when the 
174 4083 { job next swaps in. 

17A 4084 

174 4085 IF xcb_p = NIL THEN 

184 4086 trace (mmc$ap_casid_swapped_job, 1); 

184 4087 ijle_pA.delayed swapin_work : = ijle_pA.delayed swapin_work + 

1A8 4088 $jmt$delayed_ swapin_work [ jmc$S$dsw_job_asid_changed] ; 

1A8 4089 

1A8 4030 

1A8 4091 { If the segment exists in monitor’s address space ONLY, nothing needs to be done here. Code 
1A8 4092 { further down will fix monitor’s segment table. 

1A8& 4033 

1A8 4094 ELSEIF fde_pA.file_ kind = gfc$fk_monitor_only_unnamed THEN 

1B6 4095 trace (mmc$ap_casid_monitor, 1); 

1C8 4096 

1c8 4097 

1C8 4098 { The segment may be in segment tables in one or more jobs in memory. Fix the ASID in all jobs 
108 4099 { that could be referencing the file. 

1€8 4100 {!! Once async access to FDE.OPEN_COUNT is understood, maybe it can be used below. 
1€8 4101 

18 4102 ELSE 

1c8 4103 IF fde_ pA.flags.global_template_fite THEN 

1D2 4104 mmv$time_ changed template _asid := #FREE RUNNING CLOCK (0); 

1DA 4105 trace (mmc$ap_casid_ template, 1); 

1FO 4106 

1FO 4107 ELSEIF aste_ pA.sfid.residence = gfc$tr_system THEN 

1F8 4108 IF aste_p%.queue_id >= mmc$pq_job_base THEN 

204 4109 trace (mmc$ap_casid_job, 1); {! delete dsw_job_shared_asid_changed} 

216 4110 ELSE 

216 4111 mmv$time_ changed global_asid :: #FREE RUNNING CLOCK (0); 

21E 4112 trace (mmc$ap_casid_global, 1); 

230 4113 IFEND; 

232 4114 IFEND ; 

232 4115 

232 4116 
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xcb_p); 


is not pageable. 


ASID. 


[XDCL] mmp$Schange_asid 
232 4117 IF fde_pA.flags.gliobal_template_ file THEN 
240 4118 max segnum := mmv$max_template_segment_number ; 
24C 84119 ELSE 
24C 4120 max segnum := 4095; 
250 4121 IFEND; 
250 4122 
250 4123 /fix_ste_loop/ 
250 4124 WHILE xcb_p <> NIL DO 
25E 4125 mmp$get_max_sdt_pointer (xcb_p, sdt_p); 
25E 4126 segnum := xcb pA.xp.segment_table_length; 
25E 4127 IF segnum > max_segnum THEN 
28C 4128 segnum := max_segnum; 
290 4129 IFEND ; 
290 4130 WHILE segnum >= 0 DO 
294 4131 IF sdt_p4.st [segnum].ste.asid = old_asid THEN 
2A8 4132 sdt_p%.st [segnum].ste.asid :+* new_asid; 
2A8 4133 sdt_p4.st [segnum].asti := new_asti; 
2B8 4134 IFEND; 
2B8 4135 segnum := segnum - 1; 
2B8 4136 WHILEND; 
2BE 4137 tmp$find_next_xcb (tmc$fnx_ continue, NIL, jmv$null_ijl_ordinal, xcb_state, 
2EA 4138 WHILEND /fix_ste_loop/; 
2FE 4139 
2FE 4140 IFEND ; 
2FE 4141 
2FE 4142 
2FE 4143 { Change the ASID in monitor’s segment table and NOS segment table if segment 
2FE 4144 
2FE 4145 IF (aste_ pA.queue_id = mmc$pq_wired) THEN 
3OC 4146 cell_p := Amtv$monitor segment _tabie; 
30C 4147 #PURGE BUFFER (osc$pva_purge_segment_cache, cei11_p); 
316 4148 FOR segnum := 0 TO mtc$job_fixed segment - 1 DO 
322 4149 IF mtv$monitor segment_table.st [segnum].ste.asid = old_asid THEN 
332 4150 mtv$monitor segment _table.st [segnum].ste.asid := new_asid; 
334 4151 IFEND; 
334A 4152 FOREND; 
33E 4153 FOR segnum := © TO UPPERBOUND (mtv$nos_segment_table_p%.st) DO 
350 4154 IF mtv$nos_segment_table_pA.st [segnum].ste.asid = old _asid THEN 
364 4155 mtv$nos_segment_tabie_pA.st [segnum].ste.asid := new_asid;. 
36C 4156 IFEND; 
36C 4157 FOREND ; 
370 4158 IFEND ; 
370 4159 
370 4160 
370 4161 { Purge the segment file and page file to remove any entries that have the old 
370 4162 
370 4163 mmp$purge_aill_page_seg_map; 
38C 4164 
38C 4165 
38C 4166 PROCEND mmp$change_asid; 
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new _asid; 
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ASID MANAGEMENT 
[XDCL] mmp$reclaim_ast_entries 
Oo 4168 { PURPOSE 
o 4169 { This routine is called to search through the AST and free entries that 
° 4170 { have no pages in memory. The routine is normally called by mmp$per iodic_ cali 
o 4171 { with accounting being charged to the system. 
o 4172 { If an AST full condition is imminent, this routine is called by mmp$assign_asid - a@ user will incur 
fe) 4173 { the overhead necessary to try to keep the system from hanging. 
Oo 4174 { 
Oo 4175 { DESIGN: 
° 4176 { An ASID can be reciaimed if there are no pages in memory using the ASID. Since there 
ce] 4177 [{ are more ASID than page frames, it Should always be possible to reciaim enough ASIDs. 
° 4178 { When an ASID is reciaimed, the ASID in all segment tabies that contain the ASID is 
o 4179 { zeroed out. Device manager iS alse notified to update its value of the ASID. Note 
o 4180 { that ASIDs belonging to swapped out jobs may be reclaimed while the job is Swapped out. 
° 418i { In this case, the job swapper is responsible for fixing the segment tables 
o 4182 { at swap-in time. 
o 4183 { 
Oo 4184 
Oo 4185 PROCEDURE [XDCL] mmp$reclaim_ast_entries 
Oo 4186 ( asti_that_cannot_be freed: mmt$ast_index) ; 
oO 4187 
o 4188 VAR 
o 4189 asid: ost$asid, 
o 4190 end_of table seen: boolean, 
o 4191 next_aste_index: mmt$ast_index, 
Oo 4192 number astes reclaimed: integer ; 
o 4193 
oO 4194 next _aste index := next_asti; 
4 4195 end_of table seen := FALSE; 
4 4196 number astes reclaimed := 0; 
4 4197 trace (mmc$ap_reclaim_asids, 1); 
4 4198 
4 41998 /recilaim_loop/ 
4 48200 
4 4201 WHILE number astes reclaimed < 30 DO {30 is arbitrary number } 
24 4202 next _aste _ inmdex :: mext_aste_inmdex - 1; 
24 4203 IF next _aste_imdex = 0 THEN 
2A 4204 IF end_of table seen THEN 
2E 4205 RETURN; 
30 4206 IFEND; 
30 4207 end_of table seen := TRUE; 
30 4208 next _aste_index := UPPERBOUND (mmv$ast_p); 
4A 4208 IFEND; 
4A 4210 IF mmv$ast_pA [next_aste_index].in_use AND (mmv$ast_pA [next_aste_index].pages_inm_memory = 0) AND 
70 4211 (asti_that_cannot_be_ freed <> next _aste_index) THEN 
70 4212 mmp$asid (next _aste_index, asid); 
8& 4213 mmp$change_asid (AmmvSast_p’ [next_aste_index], asid, ©, 0); 
AE 4214 mmp$free_asid (asid, Ammv$ast_p4A [next_aste_index]); 
CC 4215 number _astes reclaimed := number _astes_ reclaimed + 1; 
CE 4216 IFEND; 
CE 4217 
CE 4218 WHILEND /reciaim_loop/ ; 
D6 4219 
D6 4220 PROCEND mmp$reclaim_ast_entries; 
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PAGE TABLE MANAGEMENT 
[XDCL] mmp$make_pt_entry 
© 4224 { Purpose: 
° 4225 { This routine makes an entry in the system page table after 
° 4226 { ‘checking to make sure a page table entry for the page does 
Oo 4227 { not already exist. 
© 4228 { Input: 
Oo 4229 { Sva - SVA of any byte in the page 
° 4230 { pfti - index of page frame to assign to the page 
© 4231 { aste_p - pointer to AST entry for page 
° 4232 { pfte p - pointer to PFT entry for page. ONLY THE PTI ENTRY IS USED. IMPORTANT 
© 4233 { because REASSIGN_ASID passes a dummy pfte_p. 
© 486234 { Output: 
° 4235 { pti - page_table_index of PT entry assigned to the page is stored into the PFT 
° 4236 { entry located via the PFTE_P input parameter. 
© 4237 { Error Codes: 
° 4238 { status - The following errors may be detected by this proc 
Oo 4239 { page tahie full 
© 4240 { page table entry exists 
oO 4241 
Oo 4242 VAR 
oO 4243 mmv$page table miss count: [XDCL] array [1 34] of integer ; 
Oo 4244 
© 8245 
Oo 4246 PROCEDURE [XDCL] mmp$make_pt_entry 
oO 4247 ( Sva: ost$system_virtual_ address; 
oO 4248 pfti: mmt$page_frame_index; 
Oo 4249 aste_p: Ammt$act ive segment _tabie_entry; 
o 4250 pfte_p: Ammt$page_frame_table_ entry; 
o 4251 VAR mpt_status: mmt$make_pt_entry status) ; 
oOo 4252 
oO 4253 VAR 
Oo 4254 cbc_p: Ammt$continue_bit_count, 
o 4255 count: oO 33, 
oO 4256 fcount: O .. 31, 
° 4257 found: boolean, 
© 4258 nceount: 1 .. 32, 
Oo 4259 pt_p: Aost$page tabie, 
Oo 4260 pte: ost$page_table_entry, 
oO 4261 pti: integer, 
© 4262 save_ pti: integer, 
oO 4263 starting pti: integer; 
oO 4264 
Oo 4265 
oO 4266 
© 4267 { Calculate the hash index for the page table entry and determine if the page already exists. Return an error 
Oo 4268 { code if an entry already exists. 
oO 4269 
Oo 4270 #HASH_SVA [(sva, starting pti, hcount, found) ; 
A 4271 IF found THEN 
26 4272 mpt status := mmc$mpt_page already_exists; 
26 4273 RETURN; 
32 4274 IFEND; 
32 4275 starting pti :* starting pti - hcount + 1; 
32 4276 IF starting pti < © THEN 
3E 4277 starting pti := starting pti + mmv$pt_ length; 
4&8 4278 IFEND; 
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48 4279 
48 4280 
48 4281 
48 4282 { Find an available slot for the new page table entry. Set ‘continue’ bits as required. Return error if no 
48 4283 { space is found within 32 entries. Note that early in deadstart, the continue bit array is not allocated. 
48 4284 { During this time the page table is completely filled with entries with ‘C’ set. 
48 4285 
4s 4286 count :=: 1; 
4&8 4287 pt_p := mmv$pt_p; 
48 4288 cbc_p := mmv$continue_bit_count_p; 
62 42893 pti :* starting pti: 
62 4290 WHILE (pt_pA [pti].pageid.asid <> ©) AND (count < mmv$pt_search + 1) DO 
84 42391 cbc_pA [pti] := cbc_pA [pti] + 1; 
8&4 4292 IF cbc_pA [pti] = 1 THEN 
9A 4293 pt_pA [pti].c := TRUE; 
As 4294 IFEND; 
A& 4295 count := count + 1; 
Ag 4296 pti := pti + 1; 
Ag 4297 IF pti = mmv$pt_jlength THEN 
BC 4298 pti = 0; 
C2 4299 IFENDO; 
C2 4300 WHILEND ; 
EO 4301 mmv$page_table_miss_ count [count] := mmv$page_table miss count [count] + 1; 
EO 4302 
EO 4303 
EO 4304 { If no entry was found within the required 32 entries,try to free some entries in the page table 
EO 4305 { in the area searched. Clear umnecessary continue bits that were set in the above loop. 
EO 4306 { Exit if not possibie to make entry in the page table. 
EO 4307 
EO 4308 IF count = (mmv$pt_search + 1) THEN 
F8 4309 trace (mmc$ap_mpte_full, 1); 
F8& 4310 save pti : = pti; 
F& 4311 free pt_entry _in_avail_queve (starting pti, pfti, pti, fcount, found); 
124 4312 clear_continue_bits (save_pti, (mmv$pt_search + 1) - fcount); 
174 4313 IF NOT found THEN 
17C 864314 mpt_ status := mmc$mpt_page_table_ full; 
17C 4315 RETURN ; 
186 4316 IFEND; 
186 4317 mmv$page_table_miss_ count [34] := mmv$page_table_miss_ count [34] + 1; 
186 4318 trace (mmc$ap_mpte_recovered, 1); 
194 4319 IFEND; 
194 4320 
194A 4321 
194 4322 { Make the new page table entry, preserving the ‘continue’ bit in the old page table entry. 
194 4323 
194 4324 pte.v = FALSE; 
1SA 4325 pte.c = pt_pA [pti] .c; 
194 4326 pte.u = TRUE; 
139A 4327 pte.m :: FALSE; 
194 4328 pte.pageid.asid :: sva.asid; 
19A 4329 pte.pageid.pagenum := 
184 4330 #SHIFT (sva.offset, -9); 
194A 4331 pte.rma :: 
139A 4332 #SHIFT (pfti +* osv$page_size, -9); 
19A 4333 pt_pA [pti] := pte; 
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194 4334 pfte prA.pti := pti; 
194 4335 IF NOT aste_ pA.in_use THEN 
208 4336 mtp$error_ stop ({’MM--MAKE_PT_ENTRY--AST NOT IN USE‘); * 
228 A337 IFEND; 
228 4338 
228 4339 { A non-zero changing asid indicates this procedure was called by page table full processing. The page is a 
228 4340 { new page and should be linked to the segment only if the call to this procedure was NOT made for page table 
228 4341 { full processing. 
228 4342 
228 4343 IF changing asid = 0 THEN 
230 4344 mmp$link_page_to_segment (pfti, pfte_p, aste_p); 
2E6 4345 IFEND; 
2E6 4346 aste_ pA.pages_in_memory :+= aste_ pA.pages_in_memory + 1; 
2E6 4347 mmv$pages_to_dump_p%4 [pfti] := aste_ p’*.incilude_ pages_in_dump; 
2E6 4348 mpt_status := mmc$mpt_done; 
2E6 4349 
2E6 4350 PROCEND mmp$make_pt_entry; 
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© 4352 { Purpose: 
Oo 4353 This routine deletes a page table entry for a page. 
o 4354 { 
© 4355 { Input: 
ce) 4356 { pfti - page frame table index of frame assigned to the page 
© 4357 { 
Oo 4358 { Output: 
o 4359 { none 
oO 4360 { 
© 4361 { NOTE !!! Caller must either clear the ‘v’ bit &@ purge map in the page table or otherwise ensure 
° 4362 { that the entry being deleted is NOT being referenced by another CPU in a multi-CPU 
o 4363 { configuration. 
oO 4364 { The unlink page _ from_segment parameter is used to indicate whether the page should be unlinked 
° 4365 { from the segment. This parameter should be FALSE only from a few calls in page table full 
° 4366 { processing. Because page table full processing creates two page table entries for one page frame 
o 4367 { for a short time, the duplicate page table entry must be deleted without unlinking the page frame 
© 4368 f{ from the segment. 
Oo 4369 
© 4370 
oO 4371 PROCEDURE [XDCL] mmp$delete_pt_entry 
© 4372 { pfti: mmt$page_frame_index; 
oO 4373 unlink _page_from_segment: boolean); 
oO 4374 
Oo 4375 VAR 
© 4376 aste_p: Ammt$active_segment_tabie_entry, 
° 4377 count: integer, 
° 4378 found: boolean, 
oO 4379 pfte_p: Ammt$page_ frame _ table entry, 
© 4380 pte_p: Aost$page table_entry, 
° 4381 pti: integer ; 
oO 4382 
° 4383 
© 4384 { Entry has heen found. Delete the entry by clearing the valid bit and setting ASID to zero. 
Oo 4385 
© 4386 pfte_ p := Ammv$pft_pA [pFtil]; 
4 4387 #HASH_ SVA (pfte_pA.sva, pti, count, found); 
2A 4388 pti :=+ pfte pA. pti; 
24 4389 pte _p := Ammv$pt_pA [ptil; 
24 4390 
2A 4391 IF mmc$debug THEN 
2H 4392 IF (pti <> pfte_pA.pti}) OR NOT found THEN 
S56 4393 mtp$error_ stop (’MM - bad PFT.pti on delete pte’); 
76 4394 IFEND; 
76 4395 IF (pte_pA.pageid.asid <> pfte_pA.sva.asid) OR (pte _pA.pageid.pagenum * 512 <> pfte_pA.sva.offset) OR 
BE 4396 (pte _pA.rma * 512 <> (pfti * osv$page_size)) THEN 
BE 4397 mtp$error_stop (‘MM - illegal delete pte’); 
DE 4388 IFEND; 
DE 43989 IFEND ; 
DE 44060 
DE 4401 pte pA.v :: FALSE; 
DE 4402 pte pA.pageid.asid := 0; 
DE 4403 
DE 4404 { Clear continue bits if necessary. 
DE 4405 
DE 4406 IF {count > 1) THEN 
e 
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FS 
140 
140 
140 
140 
1490 
140 
140 
14C 
16E 
16E 
16E 
16E 
1G6E 
16E 
1890 
230 
230 
230 
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4407 
4408 
44093 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 


clear_continue_bits (pti, count); 
IFEND ; 


{ Decrement the ‘pages in memory’ field of the AST. 


{ Unlink page from segment 


PROCEND mmp$delete_pt_entry; 


aste_p :* pfte prA.aste_ p; 
IF aste_ pA.pages_in_memory = 0 THEN 
mtp$Serror_ stop (’MM - delete pte, mo pages in memory’); 
IFEND; 
aste pA.pages_in_memory := aste_ pA.pages_in_memory - 1; 


IF unlink page _from_segment THEN 
mmp$unlink page from_segment (pfte_p, aste_p); 
IFEND; 


is true from all caliers except a few specific calls from process page table full. 
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° 4428 : 
© 44295 PROCEDURE [INLINE] clear_continue_bits 
o 4430 ( xpti: ost$page_table_index; 
oO 48431 count: integer); 
° 4432 
° 4433 VAR 
° 4434 4: integer, 
° 4435 pti: integer ; 
° 4436 
° 4437 
° 4438 { Clear ‘continue’ bits as required. Decrement the count of the number of times the 
° 4439 { bit is ‘set’. When the count goes to zero, clear the continue bit in the page table. 
° 4440 
° 4441 pti : = xpti; 
° 4442 FOR i = 2 TO count OO 
© 4443 pti :: pti - 1; 
° 4444 IF pti < O THEN 
re) 4445 pti := mmv$pt_length - 1; 
° 4446 IFEND; 
Oo 4447 mmv$continue_bit_count_pA” [pti] => mmv$continue_bit_count_p4 [pti] - 1; 
ro) 4448 IF mmv$continue_bit_count_p’% [pti] = © THEN 
re) 4449 mmv$pt_ pA [pti].c :: FALSE; 
ce) 4450 IFEND; 
re) 4451 FOREND ; 
° 4452 
° 4453 PROCEND clear_continue_bits; 
ce) 4454 
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mmp$ link _page_to_segment 
o 4456 { Purpose: 
° 4457 { This procedure is called from mmp$make_pt_entry to insert the page frame into the 
° 4458 { thread which links all pages of a segment that are in memory. There must be NO OTHER CALLERS 
° 44s { of this procedure, or the integrity of the links will be destroyed. 
° 4460 
Oo 4461 PROCEDURE [XDCL, INLINE] mmp$1link_page_to_segment 
4 4462 ( pfti: mmt$page_frame_index; 
4 4463 pfte_p: Ammt$page_frame_tabie_entry; 
4 4464 aste_p: Ammt$active_ segment_table_ entry) ; 
4 4465 
4 4466 { Debug code 
4 &467 
4 4468 IF (pfte_p%.segment_link.fwd <> 0) OR (pfte_pA.segment_link.bkw <> 0) THEN 
18 44693 mtpSerror_ stop (’LINK PAGE TO SEGMENT ERROR’); 
38 4470 IFEND; 
38 4471 
38 4472 IF (aste_pA.pages_in_memory = ©) AND ((aste_ pA.pft_link.bkw <> 0) OR (aste pA.pft_link.fwd <> ©0)) THEN 
54 4473 mtp$error_ stop (’LINK PAGE TO SEGMENT ERROR--AST’); 
74 4474 IFEND; 
74 4475 
74 4476 { End debug code 
74 4477 
74 4478 IF aste_pA.pft_link.fwd = © THEN 
7C 4479 aste_ pA.pft_ link. fwd = pfti; 
7C 4480 aste_pA.pft_link. bkw = pfti; 
8A 4481 ELSE 
8A 4482 mmv$pft_pA [aste_pA.pft_link.bkw].segment_link. fwd := pfti; 
8A 4483 pfte_ pA.segment_link.bBkw := aste pA.pft_ Tink. bkw; 
8A 4484 aste_pA.pft_link.Dkw := pfti; 
BC 4485 IFEND; 
BC 4486 
BC 4487 PROCEND mmp$ link _page_to_segment ; 
° 4488 
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o 4490 { Purpose: 

° 4aag9i1 { This procedure is called from mmp$delete_pt_entry to remove the page frame from the 
° 4492 { thread which links ali pages of a segment that are in memory. There must be NO OTHER CALLERS 
o 4493 { of this procedure, or the integrity of the links will be destroyed. 

oO 4494 

Oo 4495 PROCEDURE [XDCL, INLINE] mmp$unlink_page_from_segment 

4 4496 ( pfte_p: Ammt$page_ frame_table_ entry; 

4 4497 aste_p: Ammt$active_ segment_table_entry) ; 

4 4498 

4 4499 . 

4 4500 IF pfte_ pA.segment_link.fwd = 0 THEN 

10 4501 aste pA.pft_Tink.bBkw := pfte pA.segment link. bkw; 

20 4Soz2 ELSE 

20 4503 mmv$pft_pA [pfte_pA.segment_link. fwd] .segment_l1ink. bkw = pfte_pA.segment_ link. bkw; 
42 4504 IFEND; 

42 4505 

42 4506 IF pfte_p%.segment_link.bkw = O THEN 

4& 4507 aste_pA.pft_link.fwd :: pfte_ pA.segment_ link. fwd; 

5A 4508 ELSE 

5A 4509 mmv$pft_ pA [pfte_pA.segment_link.bkw].segment_link. fwd = pfte p%.segment_ link. fwd; 
7C 4510 IFEND; 

7C 4511 

7C 4812 pfte pA.segment_link.fwd : = 0; 

70 4513 pfte pr.segment_Tink.Dbkw : = 0; 

7C¢ 4514 

7C 4515 { Debug code 

7C¢ 4516 
70 4517 IF (changing_asid = 0) AND (aste_pA.pages_im_memory = 0) AND 
AE 4518 (Caste _pA.pft_Tlink. bkw <> O&O) OR (aste_pA.pft_link. fwd <> ©)) THEN 
AE 4519 mtp$error_stop (“LINK PAGE TO SEGMENT ERROR--AST’); 

CE 4520 IFEND; 

cE 4521 
CE 4522 { End deubg 
CE 4523 
CE 4524 PROCEND mmp$unlink_page_from_segment ; 

Oo 4525 
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.°) 4527 { PURPOSE 

fe) 4528 { This procedure is used in page table full processing. It scans the 32 page table entries starting 
° 4523 { at the specified hash index.If an entry in the AVAIL queue is found, it is freed. 

Oo 4530 { 

° 4531 { INPUT: 

o 4532 { initial_pti: starting hash index 

° 4533 { initial _pfti: PFT index of page frame that is being entered into page table 

° 4534 { A PT entry belonging to this page will NOT be deleted. (required for page table 
Oo 4535 { full processing - see REASSIGN_ASID. 

° 4536 { OUTPUT: 

o 4537 { pti : index to freed entry (undefined if mo entry freed) 

o 4538 { count: number of entries searched (- 1) before finding entry to free (0 = none found) 
o 4539 { freed: boolean to indicate if entry freed 

° 4540 

o 4541 PROCEDURE free_pt_entry_in_avai1l_ queue 

oO 4542 ( initial_pti: integer; 

Oo 4543 initial_pfti: mmt$page_frame_index; 

° 4544 VAR xpti: integer; 

° 4545 VAR xcount: O .. 31; 

© 4546 VAR freed: boolean); 

oO 48547 

° 4546 VAR 

o 4549 count: 0 .. 31, 

Oo 48550 pfte: mmt$page_frame_table_ entry, 

o 4851 pfti: mmt$page_frame_index, 

Oo 4552 pte_p: Aost$page table_entry, 

ce] 4553 pti: integer; 

Oo 4554 

©} 4555 { Scan the 32 entries and free the first entry found that is in the AVAIL queue. NOTE: 

° 4556 { link the page frame to the FREE quewe only if the PFT.PTI field is correct. If its not 
© 4557 { correct, then the entry must belong to segment that is having its ASID reassigned as 

° 4558 { a result of a PAGE TABLE _ FULL condition. Also, an entry using the SAME page frame as the one 
ce) 4553 { for which a new page table entry is being made cannot be deleted. This case arises during page 
3° 4560 { table full processing - both entries must exist at the same time in order for the 

© 4561 { page table full atgorithms to work. 

Oo 4562 

be 4563 pti :5 initial pti; 

4 4564 FOR count := © TO mmv$pt_search - 1 DO 

16 4565 pte_p : 5 Ammv$pt_pA [ptil; 

16 4566 IF NOT pte _ pA.m THEN 

2E 4867 pfti := (pte _pA.rma * 512) DIV osv$page_ size; 

2E 4568 IF (pfti >= LOWERBOUND (mmv$pft_p4)) AND (pfti <= UPPERBOUND (mmvSpft_p4)) AND 

8c 4569 (mmv$pft_pA [pfti].queue_id = mmc$pq_avail) AND [(pfti <> initial _pfti) THEN 
8c 4570 trace (mmc$ap_mpte_reci, 1); 

8C 4571 IF mmv$pft_pA [pfti].pti = pti THEN 

9E 4572 trace (mmc$ap_mpte_rec2, 1); 

9E 4573 mmp$delete_pt_entry (pfti, TRUE); 

BC 4574 mmp$relink_page_frame (pfti, mmc$pq_free) ; 

D4 4575 ELSEIF (pte_pA.pageid.asid = changing _asid) THEN 

E& 4576 pfte := mmv$pft_p4 [pftil; 

F2 4577 mmv$pft_ pA [pfti].sva.asid := pte_pA.pageid.asid; 

F2 4578 mmv$pft_ pA [pftil.pti : 2 pti; 

F2 4579 mmv$pft_p4 [pftil.aste_p := changing _aste_p; 

F2 4580 mmp$delete_pt_entry (pfti, FALSE); 


116 4581 mmv$pft_ pA [pfti] := pfte; 
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13€£ 4582 ELSE 

13E 4583 mtp$error_ stop (‘MM - PT/PFT mismatch’); 
1SE 4584 IFEND; 

iSE 4sé5 xcount := count; 

15E 4586 xpti := pti; 

15E 4587 freed :: TRUE; 

15E 4588 RETURN; 

16C 4589 IFEND; 

16C 4590 IFEND; 

16C 4591 pti :2 pti + 1; 

16C 4592 IF pti = mmv$pt_length THEN 
117A 4593 pti :: 0; 

17E 4594 IFEND; 

17E 4595 FOREND; 

182 4536 

182 4597 xcount := 0; 

182 4598 freed :: FALSE; 

182 4599 


182 4600 PROCEND free_pt_entry_in_avail_ queue; 
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° 4604 { PURPOSE: 

° 46os5 { This procedure is called to try to recover from a ‘page table full’ 
o 4606 { The procedure does the following: 

° 4607 { try to reassign an ASID in the portion of the PT that 
° 4608 { try to free or write to disk ali pages in the part of the PT that 
o 4609 { is full. (this step is attempted only if the previous step failed). 
° 4610 { 

° 4611 { INPUT: 

o 4612 { sva: SVA that caused PT full. 

© 4613 { 

° 4614 { OUTPUT: 

o 4615 { new_asid: new asid assigned 

o 4616 { new_asti: asti of reassigned ASID 

o 4617 { new_aste p: aste_p of reassigned ASID 

o 4618 { pt_full_ status: indicates status of reassignment 

° 4619 

° 4620 

Oo 4621 PROCEDURE [XDCL] mmp$process_ page_table_full 

oO 4622 ( Sva: ost$system_virtual_address; . 
o 4623 VAR new_asid: ost$asid; 

© 4624 VAR new_asti: mmt$ast_ index; 

Oo 4625 VAR new_aste_p: Ammt$active_ segment _tabie entry; 

© 4626 VAR pt_full_status: mmt$pt_full_status); 

° 4627 

oO 4628 VAR 

Oo 4629 asidl: asid_list_index_ type, 

o© 4630 asidimax: asid_list_index type, 

o 4631 asidt: [XDCL, STATIC] asid_list, {xdcled for debug only} 
Oo 4632 asti_that_cannot_be_freed: mmt$ast_index, 

Oo 4633 count: 1... 32, 

°} 4634 found: boolean, 

o 4635 ijle_p: Ajmt$initiated job_list_entry, 

© 4636 inhibit_io: boolean, 

° 4637 meount: integer, 

° 4638 pass: reassign_pass, 

o 4639 pfte_p: Ammt$page frame_table_entry, 

o 4640 pfti: mmt$page_frame_index, 

Oo 4641 pte_p: Aost$page_table_entry, 

oO 4642 pti: integer, 

° 4643 pti_offset: © .. 32, 

° 4644 recount: integer, 

oO 4645 sort_index: asid_list_index_type; 

Oo 4646 

° 4647 

© 4648 { Reclaim unused ast entries. 

Oo 4649 

o 4650 IF mmv$async_work.reclaim_astes THEN 

10 4651 mmvSasync_work.reclaim_astes :: FALSE; 

10 4652 mmp$asti (sva.asid, asti_that_cannot_be_freed) ; 
32 4653 mmp$recilaim_ast_entries (asti_that_cannot_be_ freed) ; 
46 4654 IFEND; 
46 4655 


46 4656 { Find the page table index that caused the page table full condition. 


46 4658 #HASH SVA (Sva, pti, count, found); 


condition. 


1989-08-21 


1989-08-21 


13:33:34 


13:33:34. 


PAGE 281 


PAGE 282 


SOURCE LIST OF, mmm$asid_page_tablie_manager NOS/VE 


PAGE TABLE FULL MANAGER 
[XDCL] mmp$process_ pt_full 


CYBIL/II 1.0 89102 


1889-08-21 


13:33:34 


PAGE 283 


PAGE 284 


4c 46593 pti :* pti - count + 1; 

4C 4660 IF pti < © THEN 

6&8 4661 pti := pti + mmv$pt_tength; 

72 4662 IFEND; 

72 4663 

72 4664 mmv$pt_full_trace. last_sva := sva; 

72 4665 mmv$pt_full_trace.timestamp := #FREE_ RUNNING CLOCK (0); 

86 4666 

86 4667 

86 466s { Generate the list of ASIDS that can he changed to eliminate the page tabie full 

8&6 4669 { condition. The list is sorted in order of ‘easiest to cnange’. 

8&6 4670 

86 4671 build _asid_list (sva.asid, pti, Aasidt, asidimax); 

A& 4672 

A&4 4673 

AG 4674 { Try to reassign an ASID until sucessful or reached end of Tist. 

A4 4675 

AG 4676 trace (mmc$ap_ptf_called, 1); 

AG 4677 FOR sort _index :: 1 TO asidimax DO 

BC 4678 trace (mmc$ap_ptf_tried, 1); 

BC 4679 asidi := asidt [sort_index] . index; 

BC 4680 reassign_asid (asidt [asidi].asid, asidt [asid1l].aste_p, new_asid, new_asti, new_aste_p, 

10C 4681 pt_full_status); 

10C 4682 IF pt_full_ status = mmc$pfs_asid_ reassigned THEN 

118 4683 IF asidt [asid1].asid = sva.asid THEN 

124 4684 pt_full_status := mmc$pfs_input_asid_reassigned; 

12a 4685 IFEND; 

12A 4686 mmv$pt_full_trace.index := mmv$pt_full_trace.index + 1; 

12QR 4687 IF mmv$pt_full_trace.index > 127 THEN 

13c 4688 mmv$pt_ full _trace.index := 0; 

140 864689 IFEND; 

140 4690 mmv$pt_full_trace.asid [mmv$pt_full_trace.index].old := asidt [Lasid1].asid; 

140) «64691 mmv$pt_full_trace.asid [mmv$pt_full_trace.index].new := new_asid; 

140 4692 mmv$pt_full_trace.changed_asid := mmv$pt_full_trace.changed_ asid + 1; 

140 «64693 pass := asidt [asid1].sort_key DIV osc$max_page_frames; | 

140 4694 mmv$pt_full_trace.pass [pass] :* mmv$pt_full_trace.pass [pass] + 1; 

140 4695 RETURN; {<-cere- } 

18E 4696 IFEND; 

18E 4697 FOREND; 

194 4698 

194 4699 

194 4700 { Reassigning an ASID failed. Try to free pages in the part of the PT that has 

194 4701 { the PT full condition by removing pages from job working sets of jebs that 

194 4702 { are in the part of the page table that is full. This may write the page to disk. 

194 4703 

194 4704 trace (mmc$ap_ptf_failed, 1); 

194 4705 FOR pti_offset := 0 TO mmv$pt_search - 1 60 

1AE 4706 pte_p := Ammv$pt_p” [(pti)]; 

1AE 4707 pfti := (pte _pA.rma * 512) DIV osv$page_size; 

1AE 4708 IF (pte_p4.pageid.asid <> ©) AND (pfti >= LOWERBOUND (mmv$pft_p4)) AND (pfti <= UPPERBOUND (mmv$pft_p) ) 

204 4709 THEN 

204 4710 pfte_p : = AmmvSpft_p4 [pFftil; 

204 4711 IF ((pfte_pA.queue_id >= mmc$pq_shared_ first) AND (pfte_p%.queue_id <= mmc$pq_shared_last)) OR 

238 4712 (pfte_prA.queue_id = mmc$pq_job_working set) THEN 

238 4713 mmp$get_inhibit_io_status (pfte_pA.iji_ordinal, TRUE {lock ajl} , inhibit_io, ijle_p); 
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356 4714 IF NOT inhibit io THEN 

3SE 4715 trace (mmc$ap_ptf_remove, 1); 

35E 4716 mmp$remove_page_from_jws (pfti, ijle_p, mcount, recount); 

390 4717 imp$untlock_aji (ijle_p); 

446 4718 IFEND; 

446 4719 IFEND; 

446 4720 IFEND; 

446 4721 pti := pti + 1; 

446 4722 IF pti = mmv$pt_length THEN 

450 4723 pti = 0; 

454 4724 IFEND; 

454 4725S FOREND; 

458 4726 

458 4727 pt_full_ status := mmc$pfs_ failed; 

458 4728 mmv$pt_full_trace.failed := mmv$pt_full_trace.failed + 1; 

458 4729 

488 4730 

458 4731 PROCEND mmp$process page table full; 
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Oo 4733 { PURPOSE: 
o 4734 { The purpose of this procedure is to examine the 32 entries in the page 
oO 4735 { table where the page table full occured. A list of the unique ASIDsS is 
° 4736 { generated and sorted in order of easiest to raassign to hardest to reassign. 
o 864737 { 
© 4738 { INPUT: 
° 4739 { pt_full_asid: This parameter specifies the ASID that 
oO 4740 { hashed into the page table full area. 
o 4741 { pt_full_index: This parameter is the index of the first 
oO 4742 { entry in the page table of the full area. 
Oo 4743 { asid_list_p: This parameter points to the array for the 
° 4744 { ASID list in the page table full area. 
oO 4745 { 
oO 4746 { OUTPUT: 
oO 4747 { asid_list: (built in array pointed to by asid_list_p) List of ASID for potential 
ce) 4748 { reassignment. List is sorted in order of least overhead of reassignment. 
o 4749 { max asid_list_index: index of the last entry in the ASID list. 
Oo 4750 
° 4751 
ce) 4752 { Define type definition for the list of ASIDS returned by BUILD _ASID_LIST. 
Oo 64753 
Oo &754 TYPE 
o 4755 asid_list_entry = record 
o 8756 index: asid_ list_index type, 
Oo 4757 sort_key: asid_l1ist_key, 
o 4758 asid: ost$asid, 
Oo 4759 aste_p: Ammt$active_segment_table_entry, 
° 4760 recend, 
oO 4761 asid_list_index_ type = © .. 33, 
Oo 4762 asid_list_key = © .. osc$max_page frames * 16, 
Oo 4763 asid_list = array [1 .. 33] of asid_list_entry, 
re) 4764 reassign_pass = 1 .. 3; 
oO 4765 
oO 4766 
Oo 4767 PROCEDURE build asid_ list 
o 4768 ( pt_full_asid: ost$asid; 
o 4769 pt_full_index: ost$page_ table_index; 
o 4770 asid_ list _p: Aasid_ list; 
Oo 4771 VAR max_asid_list_index: asid_list_index_type) ; 
Oo 4772 
o 4773 VAR 
Oo 4774 asid: ost$asid, 
Oo 4775 asid_list_index: asid_list_index_ type, 
oO 4776 asid_list_index max: asid_list_index_ type, 
Oo 4777 aste_p: AmmtS$active_ segment tabie_entry, 
° 4778 done: boolean, 
o 4779 ijle_p: Ajmt$initiated_job_list_entry, 
oO 4780 inhibit reassign: boolean, 
ce) 4781 pass: reassign_pass, 
ce) 4782 pfti: mmt$page_frame_index, 
° 4783 pti: integer, 
oO 4784 pti_offset: Oo .. 31, 
oO 4785 Save_index: 90 .. 32; 
oO 4786 
Oo 4787 
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° 4788 { If the image file is still being processed, discard all image pages. Pages that are stil) needed 


° 4789 { will be faulted for again and new page table entries will be made. 


° 4790 

oO 47891 IF mmv$image_file.active THEN 
10 4782 mmp$free_image_pages_mtr ; 
18 4793 IFEND; 

18 4794 

18 47935 


18 4796 { Build an array of the ASIDS in the part of the PT that are involved in the 


18 4797 { PT full condition. Ignore special ASIODS used by NOS or SSR. Skip free entries in the page table. 

18 4798 { entries are encountered then either 1) PT full condition nas cleared, or 2) more than one entry 

Since the 
in the 


18 4799 { is required in the page table. There is (currently) no way to distinguish between the cases. 
18 4800 { PT full condition may have been caused by a request that requires MULTIPLE entries to be made 
18 4801 { page table, this routine cannot quit when a free entry is found. 


18 4802 {!NOTE: current algorithm does NOT force out pages in the AVAIL MODIFIED queue. This is ok until 
18 4803 { to keep large numbers of pages in this queue. Then we should write pages unless I10 in inhibited. 
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we start 


18 4804 { Note that FFFF cannot be reassigned (Special significance to hardware) and the ASID of the page table 


18 4805 { cannot be reassigned (requires mods to preset memory routine. ) 


18 4806 

18 4807 asid_list_index max := 0; 

18 4808 pti := pt_full_index; 

18 4809 

18 4810 FOR pti_offset :: © TO mmv$pt_search - 1 DO 

2c 4811 

2C 4812 IF pti_offset <> (mmv$pt_search - 1) THEN 

36 4813 asid := mmv$pt_p4 [pti] .pageid.asid; 

36 4814 pfti := (mmv$pt_p4 [pti].rma * 512) DIV osv$page_size; 

36 4815 IF (asid <> ©) AND (pfti >: LOWERBOUND (mmv$pft_p4)) AND (pfti <= UPPERBOUND (mmv$pft_pA)) THEN 
8A 4816 aste_p := mmv$pft_pA [pftil].aste_p; 

AA 4817 ELSE 

AA 4818 asid := 0; 

AE 4819 IFEND; 

B2 4820 ELSE 

B2 4821 asid := pt_full_asid; 

B2 4822 mmp$aste_pointer (asid, aste_p); 

cc 4823 pfti := 0; 

BO 4824 IFEND; 

DO 4825 

DO 4826 IF (asid = ©) OR (asid = Of FfFfF(16)) OR (asid = dsv$ssr_sdte.ste.asid) OR 
106 4827 (asid = mtv$monitor_segment_table.st [O0].ste.asid) OR (aste_p = NIL) THEN 
106 4828 {Do nothing - cant change asid} 
106 4829 ELSEIF (NOT jmp$ijl_block_valid (aste_p’.ijl_ordinal)) OR 
15C 4830 (jmv$ijl_p.biock pA [aste_pA.ijl_ordinal.block number ].index_pA [aste_p’.ijl_ordinal.block_index]. 
15C 4831 ‘entry status = jmc$ies_ entry free) THEN 
15c€ 4832 IF pfti <> © THEN 
160 4833 trace (mmc$ap_ba_freed_terj, 1); 
160 4834 mmp$delete _pt_entry (pfti, TRUE); 
17E 4835 mmp$relink page frame (pfti, mmc$pq_free); 
182 4836 IFEND; 
186 4837 ELSE 
196 4838 IF (aste_pA.sfid.residence = gfc$tr_ system) AND [aste_pA.queue_id < mmc$pq_job_base) OR 
1B4 48395 (pti_offset = (mmv$pt_ search - 1)) THEN 
1B4 4840 inhibit reassign := FALSE; 
1BC 4841 ELSE 


1BC 64842 {!]} mmp$get_inhibit_io status (aste pA.ijl_ordinal, FALSE {lock aj1l} , inhibit _reassign, ijle_p); 
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1FE 4843 
1FE 4844 
1FE 4845 
206 4846 
206 4847 
206 4848 
224 4849 
224 4850 
240 4851 
240 4852 
244 4853 
244 4854 
252 4855 
258 4856 
264 4857 
26A 4858 
264 4859 
26C 4860 
26C 4861 
26C 4862 
26C 4863 
26C 4864 
26C 4865 
26C 4866 
26C 4867 
2A4 4868 
2A6 4869 
2A6 4870 
2A6 4871 
206 4872 
2A6 4873 
2B4 4874 
2B8 4875 
2B8 4876 
2B8 4877 
2BC 4878 
2BC 4879 
2BC 4880 
2BC 4881 
2BC 4882 
2BC 4883 
2BC 4884 
2CA 4885 
2CA 4886 
2D6 4887 
310 4888 
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IFEND; 


IF NOT inhibit reassign THEN 
asid_ list index := 1; 
asid_list_pA [asid_list_index_ max + 1].asid 


WHILE (asid <> asid_list_p’ [asid_list_index].asid) 


asid_list_index ::= asid_list_index + 1; 
WHILEND; 


IF asid_list_index > asid_list_index_ max THEN 


IF aste pA.sfid.residence = gfc$tr_job THEN 


pass := 1; 

ELSEIF aste_pA.queue_id >= mmc$pq_job_base THEN 
pass := 2; 

ELSE 
pass : = 3; 

IFEND; 

asid list_index_max :: asid_list_index max + 


asid_list_p% lLasid_list_index_max].sort_key 
osc$max_page_ frames; 

asid_list_p” [asid_list_index_max] .aste_p 

asid_list_pA [asid_list_index _max].index := 


IFEND; 
IFEND; 
IFEND; 
pti := pti + 1; 
IF pti = mmv$pt_tlength THEN 
pti = 0; 
IFEND; 
FOREND; 


{ Sort the ASID list. List is sorted in the order of ‘easiest to reassign’. 
{ mmp$change_ asid for more details on ‘easy to reassign’. 


done :* asid_list_index_ max <= 1; 
WHILE NOT done DO 
done := TRUE; 
FOR asid_list_tmdex := 1 TO asid_list_index_max - 


IF asid_list_p% [asid_list_p4 [asid_list_index]. 


NOS/VE CYBIL/II 1.0 891062 
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Bo 


aste_ pA.pages_in_memory + pass * 


aste_p; 
asid_list_index max; 


See procedure 


sort _key > asid_list_p4A [asid_list_p4 [lasid_list_index + 1].index].sort_key THEN 


save _ index := asid_list_p4 [asid_list_index]. 
asid_list_p” lLasid_list_index].index :+ asid_list_pA [asid_list_index + 1].index; 
asid_list_p” [asid_list_index + 1].index :+= save_index; 
done := FALSE; 
IFEND; 
FOREND ; 
WHILEND; 
max _aSid_list_imdex := asid_list_index_max; 
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326 4898 
326 48gs 


PROCEND build _asid_list; 
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Used with page table_full_handier 


© 4901 { PURPOSE: 
o 4902 { This procedure is called by the PAGE TABLE FULL HANDLER to reassign an ASID 
Qo 4903 { That appears in the part of the page table that is full. 
oO 4904 { 
Oo 4905 { INPUT: ‘ 
o 4906 { old_asid: ASID to be reassigned 
° 4907 { old_aste_p: pointer to the AST table entry for the segment 
o 4908 { 
Oo 4909 { OUTPUT: 
o 4910 { new_asid: newly assigned ASID 
o 4911 { new _asti: newly assigned AST index 
Oo 4912 { new _aste_p: newly assigned AST pointer 
Oo 4913 { pt _full_status: status of reassign request 
o 4914 { mmc$pfs_ asid reassigned 
o 4915 { mmc$pfs_ failed 
.°) 4916 { 
° 4917 
° 4918 
© 4919 PROCEDURE reassign_asid 
Oo 49820 ( old _asid: ost$asid; 
° 4921 Oold_aste_p: Ammt$active_segment_table_entry; 
Oo 4922 VAR new_asid: ost$asid; 
oO 4923 VAR new_asti: mmt$ast_index; 
o 49324 VAR new_aste_p: Ammt$active_segment_table_entry; 
oO 4925 VAR pt_full_ status: mmt$pt_full_ status) ; 
Oo 4826 
oO 4827 VAR 
oO 4928 coumt: 1... 32, 
o 4929 found: boolean, 
oO 44330 pti: integer, 
Oo 4931 mpt_ status: mmt$make_pt_entry_ status, 
Oo 4932 new _pte_p: Aost$page tabie_entry, 
o 4933 new _sva: ost$system_virtual_address, 
oO 4934 temp_sva: ost$system_virtual_address, 
Oo 49835 old pte_p: Aost$page_tabie_entry, 
© 4936 old_sva: ost$system_virtual_address, 
oO 43837 pfte: mmt$page frame table_entry, 
oO 4338 pfte_p: Ammt$page_frame _table_entry, 
o 49393 pfti: mmt$page_frame_index, 
o 4940 Sstop_pfti: mmt$page_frame_index, 
oO 4941 try _ count: oO .. 4; 
oO 4942 
Oo 4943 
oO 4944 { Build the list of PFTIS for the segment being changed. 
Oo 4945 
Oo 4946 old _ sva.asid := old_asid; 
4 4947 old_ sva.offset := 0; 
4 4948 mmp$initialize find_next_pfti (old _sva, 7FFFFFFO(1E6), include _partial_pages, psc_all, old_aste_p, pfti); 
40 4949 
40 4350 
4° 4951 { Try several times to assign a new ASID for the segment. 
40 4952 
40 4953 FOR try count := 1 TO UPPERVALUE (try_count) DO 
4A 4954 mmp$assign_asid (new_asid, new_asti, new_aste_p); 
62 4955 mew_Sva.asid : = nmew_asid; 
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49S6 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
43964 
4965 
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Used with page table full handler 


new _aste p% := old_aste pA; 
new _aste_p%.pages_in_memory := 0; 
mmp$reset_ find_next_pfti (pfti); 


Make page table entries using the new ASID for each page of the segment 
that is currently in memory. Note that for a short time both the old and new PT entries 
will exist. CAUTIONS: 
- If PT full conditions occur during mmp$make_pt_entry, PT entries that are in the AVAIL 
queue may be freed. 
- Since mmpSmake_pt_entry may freed PT entries, some of the PFTI in the pfti array 
may already nave been freed before this routine trys to change the ASID. 
If a page table entry cannot be made and the page is in the AVAIL quewe, the entry can be skipped. 
Later in this procedure, the page will he deleted and linked to the FREE queue. 
Note that the APFT entry passed to mmp$make_pt_entry is a dummy entry. 


When this loop exits (either normally or abnormally, each page frame in the PFTI list will 
nave Oo, 1 or 2 page table entries for the page frame: 
- both old and mew {this is the state for ALL page frames except these in the AVAIL queue) 
- old only. New was not made because PT full occurred. 
- old only. New was made but was subsequently deleted by mmp$make_pt_entry due to PT full. 
- mew only. Old was deleted by PT full processing in mmp$make_pt_entry after new entry was made. 
- no entries. Combination of previous 2 entries. 


trace (mmc$ap_rea_called, 1); 


/reassign_loop/ 
BEGIN 
changing _asid := new _asid; 
changing_aste_p :* new_aste_p; 
WHILE pfti <> 0 DO 
pfte_p := AmmvSpft_pA [pFftil]; 
IF pfte_pA.queue_id = mmc$pq_free THEN 
trace (mmc$ap_rea_in_free, 1); 
mmp$delete last _pfti_from_array; 


ELSE 
trace (mmc$ap_rea_make_pt_entry, 1); 
new_Sva.offset := pfte_ pA.sva.offset ; 


mmp$make_pt_entry (new_sva, pfti, new_aste_p, Apfte, mpt_status) ; 
IF (mpt_status <> mmcS$mpt_done) THEN 
IF (pfte_pA.queue_id <> mmc$pq_avail) THEN 
EXIT /reassign_loop/; 
IFEND; 
trace (mmc$ap_rea_mpte_fail, 1); 
ELSE 
old_pte_p := Ammv$pt_pA [pfte_pA.ptil]; 
new _pte_p := Ammv$pt_pA [pfte.ptil]; 
new_pte_ pA.u := FALSE; 
new pte _ pA.v := old pte _ pA.v; 
IFEND; 
IFEND; 
mmp$find next _pfti (pfti); 
WHILEND; 
changing _asid := 0; 


PAGE 289 


PAGE 290 


SOURCE LIST OF mmm$asid_page_table_ manager NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 


PAGE TABLE FULL MANAGER 
reassign_asid 


Used with page_table_full_handier 


23C 5011 
23C 5012 
23C 5013 7 
23C 5014 { Page table entries have been made for all pages of the segment. Now locate 
23C 5015 { all segment table entries tnat have the ASID and change it to the new ASID. 
23C 5016 
23C 5017 mmp$change_asid [(old_aste_p, old_asid, new_asid, new_asti); 
264 5018 
264 5019 
264 5020 { If the ASID being changed belongs to mainframe wired, save the new ASID. This is required in case 
264 5021 { the system crashes while the next couple of biocks of CYBIL statements are being executed. System 
264 5022 { recovery 
264 5023 { must be able to lecate PT entries that belong to mainframe wired. 
264 5024 : 
264 $5025 IF old _ asid = mmv$mf_wired_asid.current THEN 
26C 5026 mmv$mf_wired asid.new : = new _asid; 
274 5027 IFEND; 
274 5028 
274 5029 
274 5030 { Now delete the PT entries that have the old ASID and update the PFT with the 
274 5031 { new segment info. The correct value of the ‘used’ and ‘modified’ bits are captured 
274 $032 { here from the old entries and copied to the new PT entries. 
274 5033 
274 5034 trace (mmc$ap_rea_ok, 1); 
274 =§$035 mmp$reset_find_next pfti (pfti); 
204 5036 WHILE pfti <> 0 DO 
2E4 5037 pfte_p := Ammv$pft_ pr [pFftil]; 
2E4 5038 IF pfte_p%.queue_id <> mmc$pq_free THEN 
30A 5039 temp_sva.offset :=5 pfte pA.sva.offset ; 
30A 5040 temp_sva.asid :: new_asid; 
30A 5041 #HASH_SVA (temp_sva, pti, count, found); 
326 $042 IF NOT found THEN 
33A §043 
334 5044 { Set changing _asid to a non-zero value to indicate that page table full processing is occurring. 
334A 5045 { This page frame is in the availiable queue and a new page table entry could not be made, so 
334 5046 { delete _pt_entry will unlink the page from the segment. Because page frames that had a new page 
334 8047 { table entry made for them will not be unlinked from the segment, the debug code in unlink page 
33A 5048 { from segment must not be executed. (If this is the last page in the segment, the ast.pages_in_memory 
334 5048 { will be zero, but the ast.pft_link will still have the links to be copied to the new ast entry later.) 
334 5050 
334 5051 changing asid := 1; 
33A §052 mmp$delete pt_entry (pfti, TRUE); 
352 5053 changing_asid := 0; 
352 58054 pfte_ pA.sva.asid := new_asid; 
352 S055 trace (mmc$ap_rea_ok1, 1); 
352 S056 mmp$relink page frame (pfti, mmc$pq_free) ; 
384 5057 ELSE 
384 5058 mmp$delete_ pt_entry (pfti, FALSE); 
398 5059 pfte_ pA.sva.asid := new_asid; 
398 5060 trace (mmc$ap_rea_ok2, 1); 
xWARN* 5061 IF mmv$pt_p’ [pfte_pA%.pti].m THEN 
3CC 5062 mmv$pt_pA [pti].m := TRUE; 
306 5063 IFEND; 
306 5064 IF mmv$pt_p4 [pfte pA. pti] .u THEN 
3FO 5065 mmv$pt_pA [pti].u := TRUE; 
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IFEND; 
pfte_ pA.pti 


= pti; 
pfte pA.aste_p = 


new_aste_p; 


IFEND; 
ELSE 
trace (mmc$ap_rea_ok3, 1); 
pfte :: pfte pA; 
pfte pA.sva.asid := new_asid; 


#HASH SVA (pfte_pA.sva, pti, count, found); 
IF found THEN 
trace (mmc$ap_rea_ok4, 1); 
pfte_ pA.pti := pti; 
pfte prA.aste_p := new_aste_p; 
mmp$delete pt_entry (pfti, FALSE); 
IFEND; : 
pfte pA :: pfte; 
IFEND; 
mmp$find_next_pfti (pfti); 
WHILEND; 


Copy the ast.pft_ Tink information again; delete pt_entry may nave changed the links. 
new _aste_ pA.pft_link := old _aste pA.pft_ link; 
old_aste pA.pft_link. fwd := 0; 
Old_aste_pA.pft_Tink.Dkw := 0; 
mmp$free_asid (old_asid, old_aste_p); 


If the ASID that was changed belonged to mainframe wired, update the 
mainframe-wired-asid record. 


IF old _ asid = mmv$mf_ wired _asid.current THEN 
mmv$mf wired asid.current := mmv$mf_wired asid.new; 
mmv$mf_ wired asid.new := 0; 

IFEND; 

pt_full_ status := mmc$pfs_asid_reassigned; 

RETURN: € <¥ sees ee } 


END /reassign_loop/; 
changing_asid := 0; 


Control gets here only if a page table entry could not be made for the new ASID. 

Delete all PT entries made with the new ASID and try again. NOTE: If an entry cannot be found, 
then it must have been in the AVAIL queue and was deleted by mmp$make_pt_entry as a 

result of page table full processing. 


stop_pfti := pfti; 
mmp$reset_ find mext_pfti (pfti); 
trace (mmc$ap_rea_fail, 1); 
WHILE pfti <> stop_pfti DO 
trace (mmc$ap_rea_failt, 1); 
pfte_p := Ammv$pft_ pA [pftil; 
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KEES 


1 


warning diagnostic 
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reassign_asid - Used with page table full nhandier 

5A8 §121 new _sva.offset := pfte pA.sva.offset ; 

SAS 5122 #HASH_SVA (new _sva, pti, count, found); 

SE2 $123 IF found THEN 

SFG 5124 trace (mmc$ap_rea_fail2, 1); 

SF6 $125 pfte := pfte pr; 

6OA 5126 pfte pA.pti := pti; 

604 5127 pfte p.sva.asid := new_asid; 

660A 5128 pfte pr.aste_p := new_aste_p; 

6O0A 5129 mmp$delete_pt_entry (pfti, FALSE); 

632 5130 pfte pA := pfte; 

63C 5131 IFEND; 

63C 5132 mmp$find_next_pfti (pfti); 

68E 5133 WHILEND; 

6A4 5134 new _aste_ pA.pft_ Tink. fwd := 0; 

BAS 5135 new_aste pA.pft_link.bkw := 0; 

6AS 5136 mmp$free_asid (new_asid, new_aste_p)j; 

6C8 5137 FOREND ; 

6D0 5138 

6D0 5139 

6D0 5140 { Control gets here only if all attempts to reassign the ASID fail. Return 

600 5141 { bad status and exit. 

6D0 5142 

6DO 5143 trace (mmc$ap_rea_quit, 1); 

6DO0 5144 pt_full_ status := mmc$pfs_ failed; 

600 5145 

6DO 5146 PROCEND reassign_asid; 

° 5147 
© 5148 MODEND mmm$asid_page_table_ manager 
##*e* 12$05578173AS0102D19890821T183254 L=ZZXXLIST B:lLGO DA=NONE LO=R RC=NONE OPT=SCHED 
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ERROR LINE TEXT 
WARNING CY 821 5061 Code scheduling abandoned for this block due to register jamming. 
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reassign_asid - Used with page_table_full_handier 
IDENT LETTERS +466 S58 ee esses oon DEFINED > -e02 sees ee eee 
ON LINE 
active 516 
ajl_ordinal 1280 
ajl_ordinal 2265 
ajl_ordinal 2287 
ajl_ordinal 4621 
ajl_ordinal 4767 
ajlo 2083 
ajle 2265 
ajlo 2272 
ajlo 2294 
ajlo 4621 
ajlo 4621 
ajlo 4621 
ajlo 4767 
ajlo 4767 
amc$file_byte_limit 968 
amt$fitle_byte_address $71 
amt$file_ limit $73 
asid 3406 
asid 413 
asid 548 
asid 2386 
asid 3787 
asid 3866 
asid 39376 
asid 4189 
asid 4758 
asid 4774 
asid_ list 4763 
asid_list_entry 4755 
asid_list_index 4775 
asid_list_index_max 4776 
asid_list_index_type 4761 
asid_list_key 4762 
asid_list_p 4770 
asidi 4629 
asid imax 4630 
asidt 4631 
aste_p 1973 
aste_p 3868 
aste_p 39406 
aste op 3377 
aste_p 4034 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page_table_full_handier 


IDENTIFIER---------+-----+------ 


aste_p 


aste op 
aste p 
aste op 
aste_p 


aste_p 
aste_p 
aste_p 


asti- 

asti 

asti 

asti 
asti_that_cannot_be_ freed 
asti_that_ cannot _be freed 


block _index 
block _number 
block _p 

build _asid_ list 


c 
cbhc_p 
cell ep 
changed_asid 
changing _asid 


changing aste_p 
clear 

clear continue bits 
count 


eEK 


xx 


REFERENCE ABBREVIATIONS 


DEFINED 
ON LINE 
4246 


4249 
4371 
4376 
4464 


4437 


REFERENCE ABBREVIATIONS 


mmum$asid_ page table manager 


mmnm$asid_ page table_manager 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.09 89102 
REFERENCES 

&7391 

849 883 2086 
4713 4717 4842 
2273/M 2279 2273/58 
2300/M 2301 2305/S 
4713/M 4713 4713/5 
4842/M 4842 4842/58 
2086/M 2087/S 2030/8 
22739/P 2279/M 
22739/P 
2303/P 2306/M 
4713/P 
4713/P 4713/M 
4717/M 4717/8 4717/8 
4842/P 
4842/P 4842/M 

S71 $73 

932 

936 
3911 3950/P 3933936/M 
42390 4290 4328/™M 
4813 
4328 43sg5 4577/M 
S040/M 5054/M 5059/M 
4078/M 4131 4132/M 
4827 
4690/M 4691/M 
3911/M 3916/P 
3987/P 3396 
4212/P 4213/P 4214/P 
4680/P 4683 4680 
4813/M 4815 4818/M 
4827 4847 4848 
4631 4770 
4763 
4846/M 4848/S 4848/S 
4888/S 4889/S 4890/S 
&807/M 4847/S 4852 
4867 4883 4886 
4629 4630 4645 
4757 
4847/M 4848 4848 
4888 4888/S 48893 
4679/M 4680/S 4680/S 
4671/P 4677 
4671/P 46793 4680/P 
4413 4579/M 4816 
3910/M 39311 3912/M 
3950/P 3952 3955 
33982 3382 3988 
4057/P 4058 4061/P 

Mzemodify, Azattribute, 

1.0 89102 
REFERENCES 

4344 4344 4344 
4344/M 
4335 4344/P 4346/M 
4422/M 4422/M 4422 
4413/M 4414 4417/M 
4472 4472 4472 
4484/M 
4501/M 4507/M 4517 
4680/P 4866/M 
4816/M 4822/P 4827 
4842/P 4854 48ss6& 
4072/M 
4133/M 
3909/M 
3950/P 3951/S 
4211 
4652/P 4653/P 

851 851 
2050 2051 
2085 2085 
2163 2164 
2278 2278 
4071 4071 
4713 4713 4717 
4842 4842 
2085/M 2085 2085 
2160/M 2161 2165 
2278/M 2278 2278 
4713/M 4713 4713 
4842/M 4842 4842 
4344 4344 4344/M 
4422 4422/M 4422 
4472 4480/M 4482/S 
4503/M 4503 4506 
2065/58 2274/S 4057/58 
2065/58 2075/8 2274/S 
2065 2075 2274 
4671 48393 
4233/M 4312/M 4325/M 
4288/M 4291/M 4291 
4146/M 4147 
4692/M 4692 
4343 4422 4517 
5107/M 
4579 4985/M 
20932/M 2119/M 2280/M 
4312 4407 4453 
2085/M 2085 2082 
2167/M 2167 2278/M 

Memodify, Azattribute, 


2279 


2273/S 
2305/s 
4713/Ss 
4842/Ss 
2090/5 


4717/8 


4395 


4652/P 
5073/M 
41493 


4847/™M 
4821/M 
4848 


4849/M 
4890/S 
4863/M 
4837 
4756 


4864/M 
4890/M 
4683/S 


4680/P 
5068/M 
3917 
3960/M 
3995/M 
4070 


=subscript 


4344 


4346 
4422 
4417 
4478 


4518 


4829/P 
4864 


4717 


4717/M 


4344/S 
4422 

4483/M 
4509/5 
4713/S 
4057/S 
4057 


4325 
4232 


48575 


A713/M 


20832/M 
2278 


S=subscript, 


1989-08-21 13:33:34 
2300 4071 4077 4078/8 
2279 
2306 
4713 
4842 
4402/M 4575 4577 4708 
4671/P 4683 4S46/M 4955/M 
5127/M 
4150/M 4154 4155/M 4826 
4848 4848 
4822/P 4826 4826 4826 
48493 4852 4886 4887/S 
4891/S 
4863 4864/S 4866/S 4867/S 
4771 4775 4776 
4866/M 4867/M 4887 4887/S 
4830 4891/M 
4690/S 4693/5 
4683 &690 46393 
5078/M 5128/M 
3996/M 38397/M 4000/M 
4071/P 4107 4108 4145 
P z7I1/O ref, Reread, Wewrite, 


4344/M 


4347 
4422 
4422/P 
4479/M 


4518 


4830/S 
4866 


4717 


4344/M 
4422/58 
4483 

4513/M 
4830/S 
4713/8 
4713 


4407/M 


4984/M 


4717/M 


2082 
2280 


I=I/0 ref, 


1989-08-21 


4344/M 


4480/M 


4830/5 


4717 


4344 
4422/M 
4484/M 
4518 

4842/5 
4829/S 
4829 


44a9/M 


5009/M 


4842/M 


2116 
2280/M 


13:33:34 
4344/S 4344 
4482/S 4483 
4838 4838 
4344/M 4422/™M 
4422 4468 
4501/M 4501 
5090/M 5135/M 
4830/S 4842/S 
4830 4842 
5051/M 5053/M 
2117/M 2117 
2280 4713/M 


Reread, Wewrite, 


295 


PSparameter 


PAGE 2936 


P=parameter 


me 


reassign_asid ~ Used with page_table_full_handier 
IDENTIFIER---- eee eer ree eee eee DEFINED 
ON LINE 
freed 4546 
. fwd 398 
afc$fde_ size S06 
gfc$fde_ table base 904 
.gfc$fk_catalog 1005 
gfc$fk_job_local_ file 1007 
gfc$fk_monitor_only unnamed 1010 
gfc$fm_mass_ storage file 1020 
gfc$fm_served_file 1021 
gfc$monitor_inter locks 863 
gfc$tr_ job 367 
_.gfc$tr_system 367 
gfp$mtr_get_fde_p 865 
gfp$mtr_ get locked fde_p 842 
gft$S$allocation_unit_size $79 
gftSattach_ count 984 
gft$fde_flags 954 
gft$file_ desc_entry_p 911 
gft$Ffile_descriptor_entry 919 
gftS$file descriptor, index 364 
gft$file_ kind 1001 
gft$file_ media 1020 
-gft$locked file _desc_entry_p 2016 
gftSopen_count 1050 
gft$queue_ status 1061 
.gft$segment_lock_info 1065 
gft$signature_ lock 1026 
gftS$system_file_ identifier 353 
gft$table residence 367 
gft$transfer_ unit size $90 
global_tempiate file 958 
hash 842 
hash 872 
hash 4033 
hcount 4258 
i 4246 
i 4371 
i 4434 
i#fprogram_error 1264 
d 2146 
id 3733 
id 3865 


5 
pare 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign _asid - Used with page table _full_handier 
IDENTIFIER--- ere -- TPS ees s& -~--DEFINED 
ON LINE 
count 4246 
count 4255 
count 4371 
count 4377 
count 4431 
count 4549 
count 4633 
count 4928 
current §32 
delayed_swapin_work 1310 
dfc$command_record bytes 1380 
dfc$division_overwrite_words 1367 
dfc$esm_command_record_size 1388 
dfc$esm_header_record size 1389 
dfc$esm_maintenance_ buf size 1368 
dfc$esm_memory_base_shift 1374 
dfc$header_record pytes 1379 
dfc$max_esm_memory_ size 1369 
dfc$max_number_of mainframes 1376 
dfc$min_data_record bytes 1384 
dfc$min_esm_division_size 1394 
dft$mainframe_set 1361 
admt$system_file_id 527 
done 4778 
dsv$ssr_sdte 3570 
end_of tabie_seen 41390 
entry status 1278 
failed 3783 
fcount 4256 
fde_p 842 
fde_p 844 
fde_p 867 
fde_p 4033 
fde p 4033 
fde_p 4041 
file entry, index 354 
file hash 356 
file hash 929 
fFile_ kind $28 
Fix ste_loop 4123 
Flags 922 
found 4257 
found 4378 
found 4634 
found 4329 
free pt_entry in_avail queue 4541 


xeX 


REFERENCES OF mmm$asid_page_table_manager 


PAGE TABLE FULL MANAGER 


eX 


mmm$asid_page_table_manager 


REFERENCE ABBREVIATIONS 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


1.0 89162 
REFERENCES 

4713, 4713 

4717 4842/M 

4312 

4286/M 4290 

4407 

4387 4406 

4442 

4564 4585 

4658 4659 

5041 5074 

5025 5098 

4087/M 4087 

1388 

1395 

1396 

1396 

1399 

1396 1397 

1389 

1398 

1361 

1395 

1398 

1311 1312 
517 1343 

4883/M 4884 

4826 

4195/™M 4204 

4831 

4728/M 4728 

4311/P 4312/P 
849 /M 849 
849/P 851/P 
889 /M 890 

4071/P 4071/P 

4071/M 4071 

4071/P 4072/M 
849 879 
849 849 
849 890 

40394 

4123 4138 

4103 4117 

4270 4271 

4387 4392 

4658 

5041 5042 

4311 4600 
M=modify, 


1.0 89102 


REFERENCES 
4587/M 4538/M 
4344 4344 
4422 4422/M 
4473 /M 4482/M 
4512/M 4518 
849g 879 
843 879 
1017 
1016 
4094 
945 
$48 
&S0 4071 
849 882 
849 881 
849 894 
854 4071 
934 
$25 926 
$22 
867 4041 
$11 $24 
354 
928 1013 
944 
844 
927 1066 
$37 
$30 
$20 
343 527 
355 875 
935 
4103 4117 
843/M 849/M 
878/M &885/M 
4071/M 4071/M 
4270 4275 
4312 
4407 
4442 
849 891 
4842 
2085 2085/M 
2280 4713 
4842/M 4842 
3736/8 3736/S 
3881/S 3881/S 
: Memodify, 


1989-08-21 13:33:34 PAGE 297 

4713/M 4713 AT17/M 4717 4717 4717/M 
4842 4842 4842/M 4842 

4290 4295/M 4295 4301/S 4301/8 4308 
4407/P 

5122 
5099/M 

1397 

1432 1433 

4884 4885/M  4892/M 

4207/M 

4094 4103 Q117 

4071 

878 890 4000/M 4071 4071 
4071 

4311/P 4313 

5074 5075 5122 5123 


Azattribute, Stsubscript, 121/0 ref, Rtread, Wewrite, P:=parameter 


1989-08-21 13:33:34 PAGE 298 

4344 4344/M 4344/M 4422 4422/S 4422/M 
4422 4422/M 4422 4468 4872 4478 
4500 4503/S 4507/M 4507 4509/M 4509 
5089/M 5134/M 

8071 

905 4071 

4071 4854 

4070 4071 4107 4838 

4071 

2016 

842 865 2464 2581 2783 
2092 2114 2280 4071 4713 4717 
2092 2113 2161 2165/M 2278 2278/M 
4713/M 4713 4717 4717/M 4717 4842 
3887/S 3887/S 3905/S 3905/S 3913/58 3913/Ss 


Azattribute, S=*subscript, I=1/0 ref, R=tread, Wewrite, Psparameter 


REFERENCES OF 


PAGE TABLE FULL MANAGER 
reassign_asid - 


IDENTIFIER- +c certs eee eee eee ee D 
is) 

id 

id 

id 

id 

id 

id 

id 

id 

id 

ijl_ordinal 

Tjl_ordinal 

ijl_ordinal 

ijl_oerdinal 

ijl_ordinal 

ijl_ordinatl 


ijl_ordinal 
iji_ordinal 
ijl_ordinal 
ijl_erdinal 
ijl_ordinal 
ijl_ordinal 


HEX 


REFERENCES OF 


PAGE TABLE FULL MANAGER 
reassign_asid - 


mmm$asid_page table manager 


mmm$asid_page_table_ manager 


Used with page table full _handier 


Used with page table _full_handier 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 1.0 891062 
EFINED--c ret re rere eee REFERENCES 
N LINE 
39339 3947/S 3947/S 
3975 4003/58 4003/58 
4033 4086/S 4086/S 4085/S 
4112/S 4112/8 
4185 4197/S 4197/8 
4246 4309/S 4309/5 4318/S 
4541 4570/S 4570/S 4572/Ss 
4621 4676/S 4676/S 4678/S 
4767 4833/S 4833/8 
4919 4980/S 4980/S 4989/S 
5034/S 5034/S 5055/5 
5076/S 5076/S 5117/8 
5143/8 5143/S 
336 4057/P 4061/P 48239/P 
1966 4713/P 
2061 2065/S 2065/S 
2073 2075/S 
2265 2274/S 2274/S 
2266 2274/P 2279/P 
4033 4057/8 4057/S 
4621 4713/P 4713/P 
4621 4713/S 4713/8 
4767 4829/S 
4767 4842/P 4842/P 
4767 4842/S 4842/S 
842 849 
843 849/P 
866 883 
2062 2065/M 
2080 2086 2088/P 
2265 2274/M 
2265 2279 2279/P 
2269 2274/P 2275 2279/P 
2292 2300 2302/P 
4033 4057/M 
4033 4071/P 
4033 4071 
4042 4057/P 4061/P 4071/P 
4087 
4621 4713/P 4713 4713/P 
4621 4713/M 
4621 4713 4713/P 
4621 4717 4717/P 
4635 4713/P 4716/P 4717/P 
4767 4842/P 4842 4842/P 
4767 4842/M 
4767 4842 4842/P 
4779 43842/P 
2265 2279/P 
2233 2302/P 
4621 4713/P 
REFERENCE ABBREVIATIONS Memodify, Azattribute, 


1.0 881602 


IDENTIFIER ------ eee eee eee ee ene DEFINED > “<3 ce 52 Sees REFERENCES 
ON LINE 
ijlo 4767 4842/P 
in_use 337 3907 3912/M 3955 
in use 2193 2087 20390/M 2090 
4713 4717 4717/M 
ine 3734 3736 
ine 3865 3881 3887 3905 
ine 3339 3947 
ince 3975 4003 
inc 4033 4086 4095 4105 
inc 4185 4137 
ince 4246 43093 4318 
ine 4541 4570 4572 
inc 4621 4676 4678 4704 
inc 4767 4833 
ine 4919 4980 4389 4892 
SO76 5117 $119 
include pages _ in_dump 344 4347 
include partial _pages 3475 4948/P 
index 3786 4686/M 4686 4687 
index 4756 4679 4867/M 4887/S 
index p 3622 2065 2075 2274 
inhibit io 2268 2275/M 2276 
inhibit io 4621 4713/™M 4713 
inhibit io 4636 4713/P 4714 
inhibit io 4767 4842/M 4842 
inhibit reassign 4780 4840/M 4842/P 4845 
initial _pfti 4543 4569 
initial pti 4542 4563 
iet$io_error 1999 1344 1974 
iet$transfer_ count 2871 2859 
jmc$dsw_job_asid_changed 1422 4088 
imc$highest_prio_age_ interval 2532 2523 2533 
imc$highest_service_ accumulator 1820 1821 
jmc$highest service factor_valu 2566 2559 
jmc$ies entry free 1595 4831 
jmc$ies job swapped 1600 1609 
jmc$ies_swapin_in_progress 1599 1608 
jmc$inhibit memory manager _io 1652 2275 4713 4842 
imc$iss_idie_tasks_initiated 1615 1642 
jmc$iss_swapin_io_compiete 1640 1643 
jmc$iss_ swapin_requested 1636 1643 
jimc$iss swapout_complete 1635 1642 
imc$iss_swapped_io_cannot_init 1626 1653 
jmc$iss_swapped_no_io 1617 1652 
imc$keyword offset maximum 1837 2524 
jmc$k j1_maximum_entries 43 36 37 1772 
jmc$kol_maximum_entries 53 38 
jmc$ lock _ajl 2100 2087 2088/P 2090 
4713 4717 4717/P 
jmc$max_active_ jobs 34 2505 2513 2514 
#** REFERENCE ABBREVIATIONS Memodify, Arattribute, 


1989-08-21 13:33:34 PAGE 299 

4095/S 4105/S 4105/S 4109/S 4109/5 

4318/S 

4572/S 

4678/S 4704/S 4704/S 47185/S 4715/58 

4989/S 4992/S 4982/S 4ss39/S 4s39/Ss 

5055/S 5060/S 5060/5 5071/S 5071/58 

5117/8 5119/5 §119/S §124/Ss 5124/58 

4830/5 4830/S 4842/P 

4075 4076/M 4077 4078/S 4087/M 
Sssubscript, I:1/0 ref, Reread, Wewrite, P=parameter 


1889-08-21 13:33:34 PAGE 300 
3960/M 39382 3995/M 4210 4335 
2273 /M 2273 2305/M 2305 4713/M 
4717 4842/M 4842 
3913 
4109 4112 
4715 
4939 5034 5055 S060 5071 
5124 5143 
4688/M 46390/S 4691/S 
4888/S 4889S 4890/M 4890 4891/M 
40S7 4713 48293 &8&30 4842 
22739/P 2279 2302/P 2305 4713/P 
4717 4842/P 4842 


Szsubscript, 


Il2xI/O ref, 


R=read, Wewrite, 


P=parameter 


*** 


REFERENCE ABBREVIATIONS 


Memodify, 


REFERENCES OF mmm$asid_page_ table manager NOS/VE CYBIL/II 1.0 89162 
PAGE TABLE FULL MANAGER 
reassign _asid - Used with page_table_full_handier 
IDENTIFIER: - eee eer rete eee eee DEFINED----r-ct ce ero ene REFERENCES 
ON LINE 
jmc$max_ajil_ord 35 30 34 
jmc$max_ dispatching control 1559 1563 
jmc$max_dispatching priority 1481 1441 1444 
jmc$max_iji_index count 390 3620 
jmc$maximum_job_classes 1750 1753 
jmc$maximum_job_count 50 43 
jmc$maximum_output_count 60 53 
jmc$maximum_service_classes 1853 1856 
jmc$min_dispatching contro} 1558 1562 
jmc$null_aji_ordinal 30 2279 2301 
jmc$null_service_cilass 1846 1847 
jme$priority_aging_interval_max 2523 2520 
jme$priority_p1 1495 1442 
imc$priority_pio 1504 1443 
jmc$priority p14 1508 1443 
jimc$priority _p& 1502 1442 
jmc$reserved_ ajis 39 34 
jimc$service_accumulator_maximum 1812 1809 
jmc$service_ factor _value_max 2559 2556 
jmc$system_default_ offset 1836 1837 
jmc$system_supplied_name_size 1888 1885 
jmcS$unlimited_offset 1833 1822 2534 
jmp$assign_ajl_with_lock 2314 2279 2302 
jmp$free_aji_with_lock 2103 2088 4717 
jmp$get_ijle_p 2061 2067 2274 
‘jmp$ijl_block_valid 2072 2077 4829 
jmp$ijl_block_valid 2073 2075/M 4829/M 
jmp$ lock _ajil_with_lock 2291 2279 2309 
imp$unilock_ajl 2079 2094 4717 
jmt$active_job_list 2200 2178 
jmt$active _job_list_entry 2192 2200 
jmt$ajil_ordinal 1408 1280 2083 
jmt$delayed_swapin_work 1425 1310 1429 
jmt$dispatching contro] 1529 2488 
jImt$dispatching controi]_index 1562 1519 1529 
jmt$dispatching controls 1532 1530 
jmt$dispatching priority 1441 1292 1520 
imt$iji_block_index 386 382 3622 
jmt$ijil_block_number 385 381 3610 
imt$ijl_dispatching contro! 1818 1293 
jmt$iji_entry_status 1595 1279 
jmt$ijl_ordinal 380 336 1299 
2194 2266 
jmt$ijl_p 3608 3603 
imt$ijl_page_fauilt_count 1669 1664 1665 
jmtS$ijl_page_stats 1663 1659 
“jmtS$ijl_service_cilass_stats 1657 1314 
imtS$ijl_ statistics 1702 1313 
jmt$ijl_swap_count 1678 1674 1675 
jimt$ijl_swap_counts 1673 1333 1660 
jJmt$ijil_swap_status 1613 1282 1283 
x % REFERENCE ABBREVIATIONS Mzmodify, 
REFERENCES OF mmm$asid_page_table_ manager NOS/VE CYBIL/II 1.0 89102 
PAGE TABLE FULL MANAGER 
reassign_asid - Used with page_ table full _handier 
IDENTIFIER: -<+ = - eee rr reer rene DEFINED----r rr rr eter REFERENCES 
ON LINE 
jmtS$initiated_job_list_block 36193 3625 
‘jmtSinitiated job_list_entry 1276 843 866 
2269 2292 
4779 
jimt$initiated_job_list_p 3625 3609 
jmtS$input_file_ location 17392 1787 
jmt$job_abort disposition 1801 1785 
imt$ job_class 1753 1338 
imt$ job_mode 1756 1295 
jmt$job_priority 1761 1335 1336 
jmt$ job recovery disposition 1804 1786 
jmt$kji_index 1772 1281 
jmt$maximum_active_jobs 2505 2482 
imt$priority_aging interval 2520 24390 
imt$S$queue_file_ijl_information 1784 1320 
-jmt$scheduling data 1326 1304 
jmt$scheduling priority 24396 2489 
jmt$service_accumu lator 1809 1328 1329 
imt$service_class_ index 1856 1339 2473 
jmt$service_ class_name 2538 2475 2476 
imt$service_factor_value 2556 2484 
jmt$service_ factors 2552 2484 
‘jmt$swap_data 1342 1306 
jmt$swapout_reasons 1859 1334 
jmt$swapped job_entry 1874 1351 1929 
jimt$system_supplied_name 1885 1277 
jmt$task_time_slice 1572 1552 1553 
jmt$time slice values 1551 1536 2449 
jmv$ajl_p 2178 2087 20390/M 
&713 4717 
imv$iji_p 3603 2065 2075 
jmv$null_ijil_ordinal 3633 4059/P 4137/P 
job_fixed_ asid 12893 2279/P 2302/P 
jisc$isqi_swapped_io_compieted 1908 1910 
jisc$isqi_swapped_io_not_init 1907 1910 
ist$changed_asid_entry 1951 1942 
jst$ijl_swap_queue_id 1907 1902 
jst$ijl_swap_queue_link 1901 1288 
jist$io_control_information 1915 1307 
ist$swap_file_descriptor 1927 1308 
‘jstS$swapped_page_descriptor 1936 1934 
jst$swapped_page_ descriptors 1933 1930 
‘last_pfti_index 669 2248 2248 
4958 5007 
5083 5083 
last purge time 3872 3903/M 3907 
‘last_sva 3785 4664/M 
lock 842 &51 
lock 2037 2050 
, lock 2079 2085 2085 


1408 


1445 


4077 


1284 


Azattribute, 


1928 
3512 


2497 


1330 
2483 


20390 


4717/M 


2274 


4075 


2253 
$007 
5116 


208S/M 


Azattribute, 


4713 


4842 


4713 


4842 


2294 


15822 


1903 
2316 


S-zsubscript, 


2062 
3546 


2498 


2480 


2279/M 
4717 
4057 


4076/M 


3530 
5007 
§116 


2085/M 


S:subscript, 


4842 


4842 


2297 


1534 


1904 
3547 


T2=1/O ref, 


1989-08-21 


2319 3558 
2436 2438 
1966 206 1 
3559 3633 
R=read, 


1989-08-21 


2080 2104 
3560 3622 
2499 2500 
2481 

2279 2305/M 
&4842/™M 4842 
4713 48293 
4713/P 4842/P 
3531 3536 
596035 5035 
5116 5132 
2085 

IsI/O ref, 


2195 
4042 


2305 


4830 


4958 
5035 
5132 


Reread, Wewrite, 


13:33:34 AGE 301 


3595 


2073 


Wewrite, Pp 


13:33:34 


2210 
4635 


4713/M 


4842 


4358 
5083 
§132 


arameter 


PAGE 302 


P=par ameter 


REFERENCES OF 


PAGE TABLE FULL MANAGER 
reassign_asid - 


IDENTIFIER=--- eee ee ee eee eee eee 


lock 
lock 
lock 
lock 
lock 
lock 
lock 
lock 
lock 


Tock 


lock 
lock 
lock 
locked 
locked 


m 
max_asid_list_index 
max_segnum 

meount 

mmc$ap_assign 
mmc$ap_assign_specific 
mmc$ap_ast_reset 
mmc$ap_ba_freed_ter j 
mmc$ap_casid_ global 
mmc$ap_casid_job 
mmc$ap_casid_ monitor 
mmc$ap_casid_swapped_job 
mmc$ap_casid_template 
mmc$ap_free_ aste 
mmc$ap_low_asids 
mmc$ap_mpte_ full 
mmc$ap_mpte_reci 
mmc$ap_mpte_rec2 
mmc$ap_mpte_recovered 
mmc$ap_no_asids 
mmc$ap_ptf_ called 
mmc$ap_ptf_failed 
mmc$ap_ptf_remove 
mmc$ap_ ptf tried 
mmc$ap_rea_called 
mmc$ap_rea_fail 
mmc$ap_rea_failt 
mmc$ap_rea_fail2 
mmc$ap_rea_in_free 
mmc$ap_ rea_make_pt_entry 
mmc$ap_rea_mpte_fail 
mmc$ap_rea_ok 
mmc$ap_rea_ok1 


REFERENCES OF mmmSasid_page_table_manager NOS/VE CYBIL/II 1.0 891062 
PAGE TABLE FULL MANAGER 
reassign_asid - Used with page_table_full_handier 
IDENTIFIER----- er errr rere eee DEFINED---- eer eer ee eens REFERENCES 
ON LINE 

mmc$ap_rea_ok2 3765 5SO60/P 
mmc$ap_rea_ok3 3766 5071/P 
mmc$ap_rea_ok4 3767 5SO76/P 
mmc$ap_rea_ quit 3771 5143/P 
mmc$ap_reclaim_asids 3751 4197/P 
mmc$assign_active_null 2621 2622 
mmc$cell_pointer 2720 2725 
mmc$debug 67 3915 3949 
mmc$Sfirst_ loader _predefined_seg 83 85 3803 
mmc$heap_pointer 2721 2729 
mmc$kw_asid 2646 2682 
mme$kw clear space 2644 2669 
mmc$kw_ current _segment_length 2643 2663 
mmc$kw_error exit procedure 2645 2673 
mmc$kw_gl1_key 2645 2667 
mmc$kw_hardware_attributes 2647 2676 
mmc$kw_ inheritance 2647 2684 
mmc$kw_max segment_ length 2644 2665 
mmc$kw_ preset value 2646 2671 
mmc$kw_ps_transfer_ size 2648 2692 
mmc$kw_ring numbers 2642 2658 
mmc$kw_segment_access contro} 2646 2680 
mmc$kw_segment_number 2643 2661 
mmc$kw_shadow_segment 2648 2686 
mmc$kw_software_ attributes 2645 2678 
mmc$kw_ wired segment 2648 2688 
mmc$mpt_done 634 4348 4995 
mmc$mpt_ page _already_exists 635 4272 
mmcSmpt_ page table_full 634 4314 
mmc$num_loader_predefined_segs 84 8&5 
mmc$pfs_asid_reassigned 676 4682 5103 
mmc$pfs_ failed 675 4727 $144 
mmc$pfs_input_asid_reassigned 676 8684 
mmc$pq_ avail 437 483 4569 
mmc$pq_free 436 495 4574/P 
mmc$pq_job_base 484 40s8 4108 
mmc$pq_job_fixed 477 484 496 
mmc$pq_job_working_set 479 496 497 
mmc$pq_shared_first 485 4711 
mmc$pq shared first_site 487 491 
mmc$pq_shared_ last 492 4711 
mmc$pq_ shared _num_sites 488 491 
mmc$pq_ shared other 446 486 
mmc$pq_ shared _site_01 448 487 
mmc$pq_shared_site_25 472 492 
mmc$pq_shared_task_service 441 485 
mmc$pq_swapped_io_error 475 495 
mmc$pq_wired 439 482 4145 
mmc$segment_ fault _processor_id 3176 3230 
mmc$sequence_pointer 2720 2727 
mmc$ssk_none 2815 2787 

*** REFERENCE ABBREVIATIONS Mzmodify, 


mmm$asid_page_table_ manager 


be 


Used with page_ table full _handier 


NOS/VE CYBIL/II 1.0 8910602 
DEFINED-=- 2222222 -e-ee26 REFERENCES 
ON LINE 
2079 2092 2092 
2110 2113 2116 
21583 2161 2163 
2265 2278 2278 
2265 2280 2280 
2267 2277 
4033 4071 
4621 4713 
4621 4713 4713 
4717/M 4717 
4621 4713 4713 
4717 4717/M 
4767 4842 
4767 4842 4842 
4767 4842 4842 
1104 851 2050 
2144 2085 2163 
421 4327/M 4566 
4771 4897/M 
4043 4118/M 4120/M 
4637 4716/P 
3744 3913/P 
3745 3947/P 
3742 390S/P 
3775 4833/P 
3748 4112/P 
3750 4109/P 
3747 4ogs/Pp 
3746 4os6/P 
3748 4105/P 
3743 4003/P 
3740 3887/P 
3752 4303/P 
3754 4570/P 
3755 4572/P 
3753 4318/P 
3741 3881/P 
3756 4676/P 
3758 48704/P 
3759 4715/P 
3757 4678/P 
3760 4980/P 
3768 5117/P 
3769 5119/P 
3770 5124/P 
3761 4989/P 
3774 4992/P 
3762 4993g9/P 
3763 5$034/P 
3764 5055/P 
REFERENCE ABBREVIATIONS Memodify, 


2092/M 
2117/M 
2165/M 
2278/M 
2280/M 


4713/M 
4713/M 
4842/M 
4842/M 
4071 
2278 
5061 


4127 


Asattribute, 


3986 


4396 
4835/P 
4838 


4712 


Azrattribute, 


2032 
2717 
2167/M 
2278/M 
2280 


4713/M 
4713 
4842/M 
4842 
4713 
5062/M 


4128 


S=subscript, 


39993 


4988 
4856 


Szsubscript, 


1989-08-21 13:33:34 
2032/M 
2119/M 
2167 
2278 
2280/M 
4713 4717 4717 4717/M 
4713/M 4717 4717 4717/™M 
4842 
4842/M 
4717 4842 
1=I/O ref, R:read, Wewrite, 
1989-08-21 13:33:34 


4391 
5038 5056/P 
IzI/O ref, 


Rsread, Wswrite, 


Pep 


PAGE 303 


Pzparameter 


PAGE 304 


arameter 


REFERENCES OF mmm$asid_page_ta 
PAGE TABLE FULL MANAGER 
reassign_asid - Used with page_ 


IDENTIFIER-------- eee eee eee D 

0 
mmc$ssk_segment_ number 
mmk$monitor base 


mmp$asid 

mmp$assign_asid 
mmpS$assign_specific_asid 
mmp$aste_ pointer 

mmpSast i 

mmp$change_asid 
mmp$delete_last_pfti_from_array 
mmp$delete_ pt_entry 
mmp$find next pfti 
mmp$free_asid 
mmp$free_ image _pages_mtr 
mmp$get_inhibit_io_status 
mmp$get_max_sdt_pointer 
mmp$get_ sdt_entry_p 
mmp$Sinitialize find _next_pFfti 
mmp$ link _page_to_ segment 
mmp$make_pt_entry 
mmp$nudge_periodic_call 
mmp$process_ page _table_ full 
mmp$purge_all_cache_map 
mmp$purge_alil_cache_map_proc 
mmp$purge_al1_map_proc 
mmp$purge_all_page_seg_map 
mmp$reciaim_ast_entries 
mmp$relink_page_ frame 
mmp$remove_page_from_jws 
mmp$reset_ find next_pft i 
mmp$Sunlink_ page _from_segment 


 mmtS$active segment _table 


mmt$active segment _table_entry 


mmt$ast_ index 


mmtS$async_ work list 
mmt$attribute keyword 
mmt$continue_bit count 
mmt$eoi_state 

mmt$global_page_ queue_index 
mmt$gliobal_page queue_list_ent 
mmt$hardware_attribute set 
mmt$hardware_attributes 


-mmtS$image file 


mmt$ job_page_queue_ index 
mmt$ job _page_ queue list 

mmt $ Tink 

mmt$ lock _ segment_status 


xxx 


REFERENCES OF mmm$asid_page_ta 
PAGE TABLE FULL MANAGER 
reassign_asid - 


IDENTIFIER----+- seer tere er nee eee 8) 
ie) 

mmt$ locked page 

mmt$mainframe wired asid 

mmt$make_pt_entry status 

mmt $max_sdt 

mmt $max_sdt_p 

mmt $max_sdtx 

mmt$memory reserve_request 

mmt$page_ age 


_mmt$page_frame_ index 


mmt$page_frame_queue_id 
mmtS$page_ frame_tabie 
mmt$page_frame_table_ entry 


mmtS$page_queue_list_entry 
mmt$page_selection_criteria 
mmt$pfti_array 


“mmt$pt_full_ status 


. mmt$segment 
mmt$segment 


_mmt$segment 


mmt$pt_full_trace_info 
mmtSsdtx stream data 
access _ condition 
access _ rights 
access state 
descriptor 
descriptor_extended 
mmt$segment_inheritance 
mmtS$segment_pointer_kind 
mmtS$segment_reservation_state 
mmt$shadow_info 
mmt$shadow_reference_info 
mmt$shadow_ segment _ kind 


mmt$segment 
mmt$segment 


mmtS$software_attribute_ set 


mmt$software_ attributes 
mmt$xcb_ page wait_info 


_mmvS$aptm_trace 


mmv$ast_p 


mmav$async_work 
mmv$cont inue_bit_count_p 


, mmvSimage_ file 


be 


Used with page_ 


bie manager NOS/VE CYBIL/II 1.0 89102 
table_full_ handler 
EP INEOr es 2 se 4 = Se ea REFERENCES 
N LINE 
2816 2785 
251 91 $8 
174 177 
199 202 
2216 4212 
3865 38323 4954 
3939 3962 
2227 3916 3987 
2221 39350 4652 
4033 4166 4213 
2233 2237 43990 
4371 4425 4573 
2240 2258 5007 
3975 4005 4214 
2262 4732 
2265 2284 4713 
2327 2335 4125 
3464 3466/M 
3473 43948 
4461 4344 4487 
4246 4350 43994 
3488 3433 3889 
4621 4731 
3814 3904 
3829 3820 3904 
3845 3838 4163 
3832 4163 
4185 3882 4220 
3505 4574 4835 
3511 4716 
3519 3542 4958 
4495 4422 4524 
346 3658 
333 349 1938 
3871 3940 
4464 4497 
1083 $31 1350 
3867 3943 
3647 3641 
2642 2657 
510 3802 4254 
1092 $33 
495 660 
650 660 
2711 2677 
2639 2711 
514 3665 
496 661 1876 
661 1305 
396 334 647 
2795 2586 
REFERENCE ABBREVIATIONS M=zmodify, 


ble_manager 


table_full_handier 


EF-LNED:s:sie-sise sie cene ec ee Se REFERENCES 
N LINE 

1985 1869 
531 3804 
634 4251 
2365 23693 
2369 2323 
2610 2614 
2005 12398 
1982 1872 
402 338 
2008 
3524 
4339 
437 342 
1978 3698 
1962 1837 
4937 
646 651 
3484 3476 
666 3630 
675 4626 
3780 37394 
2533 2589 
3203 3231 
2759 2585 
2765 2580 
2352 2362 
2578 2607 
2628 2582 
2720 2724 
2805 2583 
2780 2587 
2828 2462 
2815 2784 
2713 2584 
2707 2713 
2839 2448 

3735 3736/M 

3913/M 

4095/M 

4137/M 

4572/M 

4715/M 

4992/M 

5060/M 

5118/M 
3658 33902 

8213/P 

3641 3888/M 
3802 4288 
4447 
3665 479 1 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


M=modify, 


1.0 89102 


3804 
4931 


4045 


1996 

398 
2211 
4248 
4940 
1917 


1978 


49338 
661 


4925 


105 
180 
209 


4822 
$017 
4580 
$083 
$0392 


4842 


4653 
SOS6 


5035 


1973 
3944 
4625 
1984 
4037 


1963 


Azattribute, 


1996 

670 
2241 
4372 


1967 


4250 


3464 


3881/M 
3947/M 
4105/M 
43039/M 
4676/M 
4833/M 
49sg/M 
5071/M 
5124/M 
3907 


4651/M 
4312 


Azattribute, 


130 


213 


4834 
5132 
5136 


1964 


S=subscript, 


1916 
2245 
4462 


3506 


4379 


3570 


3881 
3947 
4105 
43093 
4676 
4833 
43s9g 
5071 
$124 
3910 


4312 


Sssubscript, 


151 


216 


5052 


3477 
3980 
4777 
2222 
4191 


1918 
3478 
4543 


4463 


3578 


3887/M 
4003/M 
4109/M 
4318/M 
4678/M 
4980/M 
5034/M 
5076/M 
5143/M 
3351 


4407/M 


I=I/0O ref, 


le1/0 ref, 


1989-08-21 13:33:34 
165 168 171 
189 192 196 
222 

5058 50793 51293 
3651 3801 3868 
4034 42493 4376 
4$21 4924 
2355 3862 3862 
4624 4632 4923 
R=read, W-ewrite, P=p 
1989-08-21 13:33:34 
1919 1920 2007 
3505 3511 3520 
4551 4640 4782 
4436 4550 4639 
3588 4046 
3887 3905/M 3905 
4003 4086/M 4086 
41093 4112/M 4112 
4318 4570/M 4570 
4678 4704 /M 4704 
4980 4389 /M 4989 
5034 5055/M 5055 
5076 5117/M 5117 
5143 
4208 4210 4210 
4407 4407 4447/M 


Reread, Wewrite, 


P=p 


PAGE 305 


arameter 


PAGE 306 


arameter 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page _ table full_handier 
LOENTIF LER @ S02 ee ces eo ee Ss mw DEFINED sss: <0:9'6 ete = 6 = 
ON LINE 
mmuv$max_ template _ segment number 3803 
mmv$Smf wired asid 3804 
mmv$multiple caches 3675 
mmv$multiple_page_maps 3683 
mmv$number_ free astes 3805 
mmv$page_table_miss_count 4243 
mmv$pages_to_dump_p 3806 
mmv$pft_p 3698 
mmv$pfti_array_p 3690 
mmv$pt_full_trace 3794 
mmv$pt_ length 3706 
mmv$pt_p 3712 
mmv$pt_ search 3807 
mmv$test_reassign_asid 3719 
mmv$t ime _changed_global_asid 3808 
mmv$t ime changed _template_asid 3809 
mmv$t ime _to caill_mem_mgr 3499 
monitor _ lock 921 
mpt status 4251 
mpt_ status 4331 
mtc$ job_fixed_ segment 687 
mtp$error_ stop 2033 
mtp$set_ inter lock 2037 
mttS$monitor_inter lock 10998 
mtv$monitor_segment_table 3577 
mtvSnos_ segment_table_p 3587 
nat$received message descriptor 2855 
nat$received_ message list 2847 


Ee ae 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page table full _handier 
LOENTITE LER 8 a9 set =e = eee SS See DEFINED 
ON LINE 
new 533 
new 3789 
new_asid 4036 
new _asid 4623 
new_asid 4922 
new _aste p 4625 
new _aste_p 4924 
new_asti 4037 
mew _asti 4624 
new _asti 4923 
new pte op 43932 
new sva 49333 
next _aste_ index 4191 
next_ast i 3862 
nic$cec_ connect confirm 2887 
nic$cc_connect_ request 2886 
nic$cc_expedited data 2892 
nic$cc_max_pdu_kind 2894 
nic$channel_ connect ion_pdu 2910 
nic$channe inet_pdu 2910 
nit$cc_pdu_kind 2897 
nit$cc_seq#_or_ connect time 2874 
nit$cc_sequence_number 2900 
nit$device identifier 2907 
nit$pdu_type 2910 
nulil_sva 3817 
null osva 3835 
null_sva 3865 
null osva 4033 
number _astes reclaimed 4192 
offset 549 
offset 842 
offset &74a 
offset 4033 
old 3788 
old_asid 4035 
old _asid 4820 
old_aste_p 4921 
old _ pte _p 4935 
old _sva 4336 
osc$call_instruction 3090 
osc$data_read 3089 
osc$free_ running clock _maximum 506 
osc$invalid_ring 566 
osc$max_fault_contents 3243 


¥x xX 


mmm$asid_page_table_manager 


REFERENCE ABBREVIATIONS 


mmum$asid_ page _table_manager 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


REFERENCES 


5026/M 
4691/M 
4076 

4680/P 
4954/p 
5073 

4680/P 
4954/P 
5128 

4072 

4680/P 
4954/p 
5002/M 
4955/M 
4194/M 
4212/P 
3900/M 
4194 


4163 
4136/M 


4330 
5121 
849/M 
879 /M 
4071/M 
4690/M 
4075 
4946 


NOS/VE CYBIL/II 1.0 89102 
- “REFERENCES 
4118 
5025 5026/M 
3819 39304 
3819 3904 
3879 3880 
3393 
4301/M 4301 
4347/M 
4344/M 4386 
4568 4569 
4708 4708 
5120 
2235/S 2235/M 
2251 2251/S 
3530 3530 
3536 3536 
4958/M 4958 
4sso/s 4990/M 
5007 5007 
5035 5035 
5035 5035 
5083 5083 
5116 5116 
5116 5116 
$132 5132 
A664/M 4665/M 
4691/S 4691/M 
4277 4237 
4873 
4287 4312/M 
4814 5001 
4290 4290 
48338 
39998 
4111/M 
4104/M 
3490/M 3889/M 
851/P 4071/P 
4272/M 4314/M 
4994/P 4995 
849 883 
3884 3918 
4344 4393 
4583 
851 2058 
$21 2037 
4078/M 4146 
4153 4154 
2848 2857 
2430 
Memodify, 


1.0 89102 


5099 


4078 
4691 
4955 
$127 


4S56/M 
5134/M 
4133 


5017/P 
5003/M 
4993/M 
4202/M 
4213/58 
33900 


3823 
3904 
4201 
4395 


8439/M 
886/M 
4071/M 


4131 
5017/P 
4956 
5004 
4a94a7/M 


50398 


3883 
4317/M 


4422/™M 
4s71 
4710 


2248 
2253 
3531 
4958/M 
4958 
5007 
5007 
5035/M 
$083 
5083 
5116/M 
5132 
$132 


4686/M - 


4692/M 
4312 


4389 


§002 
4308 


4348/M 


4149 
4155/™M 


Azattribute, 


5100/M 
4132 


4984 
5136/P 


43957/M 
5135/M 


SOO4/M 
4994/P 


4201 
4947/M 


8493 
889 
4071 


4149 
5025 
5017/P 


4948/P 


5099/M 


3893/M 
4317 


4422/M 
4576 
4815 


2248 
2253 
3531 
4958 
4958/S 
5007 
5007 
5035 
5083 
5083 
5116 
5132 
§132 
4686 
46392 
4407 


4407/M 
5061 
4312/P 


4078/S 
3956 
4415 


4150/M 


=subscript 


4150 
5017/P 


4985 
5136/P 


5121/M 
4203 


3902/M 


4215/M 


4993/M 


4154 
5092/P 
5088 


1989-68-21 13:33:34 
50s89 5100/M 
3893 3946/M 3946 3993/M 
4482/M 4503/M 45095/M 4568 
4577/M 4578/M 4579/M 4581/M 
4815 4816 4987 5037 
2249 22493 2250/M 2250 
3527/M 3527 3528 3528/S 
3532/M 3532 3533 3533/S 
4358 4958/Ss 4958 4958 
4958 4958 4958 4958 
5007/M S007 59007 5007/5 
5035/M 5035 S035 5035/5 
5035 5035/S 5035 5035 
5083/M §083 5083 5083/5 
5116/M 5116 5116 5§116/S 
5116 5116/8 5116 5116 
5132/M 5132 §132 5132/58 
4687 4688/M 46S0/S 4690/M 
4694/M 4694 4728/M 4728 
4445 4592 4661 4722 
4449/M 4seé6s 4706 4813 
5062/M S064 5065/M 
4564 4705 4810 4812 
4148 
3383 3989 4336 4344 
4422 4469 4473 4519 
4827 
, TtI/0O ref, Reread, Wewrite, 
1989-68-21 13:33:34 
4155 
5026 5040 5054 5059 
4994/P 5068 5078 5088/M 
5122 
4208/M 4210/8 4210/5 4211 
3307/S 3907/S 3909 39310/S 
4215 
4993 50339/M 5033 5121/M 
5038 
5089/M 5090/M 5092/P 


PAGE 307 


Psparameter 


PAGE 3068 


Msmodify, Azattribute, S=subscript, It1/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page_table_ full handler 


IDENTIFIER---+---+-+---+------- 


osc$max_name_size 
osc$max_number_ of processors 
osc$max_page_frames 


osc$max page_size 
osc$max_page_table_entries 
osc$max_ring 
osc$max_segment_length 


osc$max_status_condit ion_code 


osc$max_string size 
osc$max_tasks 
-osc$maximum_offset 
osc$maximum processor_id 
osc$maximum_processors 
osc$maximum_segment 
osc$min_page_size 
osc$min_ring 
osc$pr_base_constant 


osc$purge_aill_cache 
osc$purge_all_page_seg_map 
osc$pva_purge_segment_cache 
osc$task_ time _slice_maximum 
osk$system_cilass 

ost$asid 


ost$binary_unique_name 
ost$cp_time 
ost$cp_time_value 
ost$cs_ lock 
~est$debug code 
ost$debug_ list 
ost$debug_ list_entry 
_est$debug mask 
‘ost$exchange_package 
ost$execute_ privilege 
ost$execution_control_block 
'ost$filags 
ost$frame_descr iptor 
ost$free_ running clock 


ost$global_task_id 
ost$key_ lock 

ost$key lock_value 
ostS$keypoint class 
ost$S$keypoint_mask 
ostS$minimum_save_area 
ost$monitor condition 


* XX 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page _table_ full_handier 


IDENTIFIER------------------- 


ost$monitor conditions 
ost$monitor fault 
ost$monitor_fault_contents 
ost$name 

est$p_register 

ost$page_id 

ost$page_size 

ost$page table 

ost$page table entry 
ost$page_table_ index 
ost$paging statistics 
ost$processor_id 
ost$processor_id_set 
ost$processor_model_number 
ost$processor ser iai_number 
.ost$pva 

ostS$read_ privilege 
ost$register_number 
ost$ring 
ost$ring1_termination_reason 
ost$segment 
ost$segment_access contro}! 
ost$segment_descr iptor 
ostS$segment_iength 
estS$segment_offset 
ost$stack_frame_save_area 
-ost$status 
ost$status_condition 
ost$status_condit ion_code 
_ost$string 

ost$string size 
ost$system_flag 
ost$system_virtual_address 


ost$task_ index 
ost$task_time_slice 
.ost$top_of stack_pointer 
ost$trap_ enable 

ost$user_ condition 
ost$user_ conditions 
-ost$valid_relative pointer 
ost$valid_ring 


ost$virtual_machine_identifier 


.ost$write_ privilege 
ost$x_ register 
osv$cpus_logically_on 


-osv$page_size 
osv$time_to _check_asyn 


,pageid 


**X 


mmm$asid_page_ table manager 


DEFINED 
ON LINE 
2542 
2133 
406 


1205 
407 
565 
589 
810 
826 

1045 
588 

3115 

2137 
587 

1204 
564 
704 


745 
784 
747 
1583 
303 
552 


1113 
1690 
1688 
1215 
30893 
3085 
3076 
3095 
2938 
2399 
2414 
2995 
3053 

503 


1036 
595 
601 

3027 

3029 

3063 

2914 


REFERENCE ABBREVIATIONS 


mmm$asid_ page _tabie_ manager 


DEFINED 
ON LINE 
28321 
3220 
3237 
2549 
3010 
412 
1201 
426 
417 
410 
1726 
3111 
3105 
1131 
1209 
617 
2402 
3006 
6O6 
3123 
608 
2332 
2373 
612 
603 
3037 
794 
818 
822 
&35 
&29 
3398 
547 


1042 
1586 
2998 
3032 
2924 
2931 

615 

607 
3020 
2405 
3007 
2128 


3725 
3501 


422 


REFERENCE ABBREVIATIONS 


se eee wee eee © © @ ew oO 


_sea ee wr eewn wre wee 2 


NOS/VE CYBIL/II 


-REFERENCES 


2546 
2128 
335 
1346 
1201 
410 


1.0 89162 


2549 

402 648 
1875 1877 
607 

2590 2621 
822 

&32 837 
6093 609 
2092 2113 
4717 4842 
3904 

3840 3904 
288 289 
§32 §33 
2221 2227 
3800 3866 
4768 a774 
1703 2447 
1691 16S2 
2394 

2440 3463 
339 1300 
1349 1823 
3803 

1029 1294 
2668 

3012 3014 
3029 

3038 3224 


M=modify, Atattribute, 


NOS/VE CYBIL/II 


REFERENCES 


2951 
3169 


2941 
2383 
2380 
2085 
4713 
4332 
3491/M 


4230 


1.0 89102 
2955 3043 
2538 3262 
3064 3291 
3725 
42593 
1938 4260 
1870 4430 
2455 
3105 
3001 3015 
2395 
30493 3057 
2384 2385 
940 2662 
2666 2688 
620 2594 
3257 
3292 
818 
3473 3650 
1076 1077 
3288 
2953 3041 
949 2444 
2943 3065 
2396 
3043 
2032 2112 
4713 4717 
43386 4567 
38839/M 
4230 4328/™M 


Memodify, Azattribute, 


654 
4633 


2160 
4842 


4163 
290 
548 

2315 


3976 
4920 


2460 


3549 


1301 
1535 


1323 


667 
4762 


2278 


291 
12893 
2386 
4035 
43922 


4047 


1302 
21397 


2425 


S=subscript, I=: 


3299 


3237 


3221 


3058 
2579 


2786 


2690 
3080 


3785 


3562 


3070 
2445 


2158 
4717 
4707 


43283 /M 


S:subscript, 


3313 


4552 


3314 


30583 
2659 
2978 


2633 
3082 


4247 


3260 


2278 
4842 
4814 


4335 


1989-9 


668 
4865 


2280 


292 
1941 
2683 
4036 


1303 
2446 


2426 


1/0 ref, 


1989-0 


4641 


2660 


3079 


3474 


4622 


3300 


2280 
4842 


4395 


IsI/O0 ref, 


8-21 13: 


663 


4713 


293 
19352 
3788 
4189 


1337 
3808 


3127 


33:34 PAGE 309 


1345 


4713 


1953 
3789 
4623 


1347 
3808 


3330 


Reread, Wewrite, P:=parameter 


8-21 13: 


4932 


3000 


3464 


4933 


3837 


4402/M 


33:34 


PAGE 310 


4935 


4043 


4934 


4163 


4575 


Reread, Wewrite, Pzsparameter 


REFERENCES OF mmm$asid_page_table_manager NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 311 

PAGE TABLE FULL MANAGER ; 

reassign_asid - Used with page table_full_handier 

IDENTIFIER-~- 2+ eee te terete eee DEFINED---++-e-+eee-e-- REFERENCES 

ON LINE 

4577 4708 4813 

pagenum 414 43239/M 4395 

pages_in_ memory 335 3382 4210 4344 4346/M 4346 4414 4417/M 4417 
4422 4472 4517 4864 49357/M 

pass 3784 4694/mM 4694 

pass 4638 4683/M 4694/Ss 4694/Ss 

pass 4781 4855/M 4857/M 4853/M 4864 

PFt_ Tink 334 4344 4344 4344 4344/M 4344/M 4344/S 4344 4344/M 
4422/M 4422/M 4422 4422 4472 4472 4478 4479/M 
4480/M 4482/58 8483 4484/M 4501/M 4507/M 4518 4518 
5088/M 5088 5083/M 5090/M 5134/M 5135/M 

pfte 4550 4576/M 4581 

pfte 4937 4994/P 5002/5 5072/M 5081 5125/M 5130 

pfte p 4246 4344 4344 4344/M 

pfte_p 4250 4334/M 48344/P 

pfte_p 4371 44822 4422 4422/S 4422 4422 4422 4422/8 4422 
4422/M 4422/M 

pfte_ op 4379 4386/M 4387 4388 4332 4395 4395 4413 4422/P 

pfte_p 4463 4468 4468 4483/M 

pfte op 4496 4500 4501 4503/8 4S03 4S06 4507 4509/5 4509 
4512/M 4513/M 

pfte_ p 4633 4710/M 4711 4711 4712 4713/P 

pfte_p 4938 49387/M 4988 4993 4996 5001/58 5037/M 5038 5039 
5054/M 50539/M 5061/S 5064/S 5067/M 5068/M 5072 5073/M 
5074 5077/M 5078/M 5081/M 5120/M 5121 5125 5126/M 
5127/M 5128/M 5130/M 

pft i 2245 2247/M 2248 2248 2251/M 2254/M 2256 

pfti 3524 3528/M 3530 3530 3533/M 3537/M 3539 

pfti 4246 4344 4344 4344 4344 

pfti 4248 4311/P 4332 4344/P 4347/S 

pfti 4372 4386/S 4336 

pfti 4462 4479 4480 4482 4484 

pfti 4551 4567/M 4568 4568 45639/S 45693 4571/S 4873/P 4574/P 
4576/S 4577/S 4578/S 48573/S 4580/P 4581/S 

pfti 4640 4707/M 4708 4708 4710/S 4716/P 

pfti 4782 4814/M 4815 4815 4816/S 4823/M 4832 4834/P 4835/P 

pfti 4919 4958/M 4958 4958/M 4958 4958/M 4958 5035/M 5035 
5035/M 5035 5035/M 5035 5116/M 5116 5116/M 5116 
5116/M 5116 

pfti 4919 5007/M 5007 5007/M 5007 5007/M 5007 5083/M 5083 
5083/M 5083 5083/M 5083 5132/M §132 5132/M 5132 
5132/M 5132 

pfti 4s39 4948/P 4958/P 4986 4986 4987/S 4s94/P 5007/P 5035/P 
5036 5036 5037/S 5052/P 5056/P 5058/P 5079 /P 5083/P 
§115 5116/P 5118 5118 5120/S §129/P 5132/P 

pfti_ first 667 3527 3528/58 4958 4958/S 5035 5035/58 5116 5116/S 

pfti_ index 668 2235/8 2248 2249 2250/M 2250 2251/8 2253 3527/M 
3530 3531 3532/M 3532 3533/8 3536 4958/M 4958 
4958/M 4as58 4958/S 4958 4958 49390/S 5007 5007/M 
5007 5007/58 5007 5007 5035/M 5035 5035/M 5035 
5035/S S035 5035 5083 5083/M 5083 5083/58 5083 


* KX REFERENCE ABBREVIATIONS M=modify, Azattribute, S=subscript, I21/0 ref, Rtread, Wwrite, Ptparameter 


REFERENCES OF mmm$aSid_page_ table manager NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 312 

PAGE TABLE FULL MANAGER . 

reassign_asid - Used with page_tabie_full_handier 

IDENTIFIER--- +e ee eee ee ree eens DEFINED---------+---e-- REFERENCES 

ON LINE 

5083 5116/M 5116 5116/M 5116 5116/8 5116 5116 
§132 5132/M 5132 §132/S 5132 5132 

pftis 670 2235/M 2251 3528 3533 43958 4358 4ag990/M 5007 
5035 5035 §083 5116 5116 5132 

pmc$kill_task_flag 3338 3414 

pmc$max_signal_contents 3381 3375 

pmc$max_task_id 3136 3133 

pmt$condition_identifier 3210 3204 

pmt$cpu_model_number 1191 1180 1187 

pmt$cpu_ serial number 1194 1181 1186 

pmtS$initialization_value 1259 938 2672 

pmt$signal 3337 3331 

pmt$signal_contents 3375 3338 

pmt$signal_id 3342 3338 

pmt$task_id 3133 2442 3128 

psc_ali 3484 4948/P 

pt_full_asid 4768 4821 

pt_full_index 4769 4808 

pt_full_status 4626 4681/P 4682 4684/M 4727/M 

pt_full_status 4925 5103/M 5144/M 

pt _p 4259 4287/M 4290 42390 4293/M 4325 4333/M 

pte 4260 4324/M 4325/™M 4326/M 4327/™M 4328/M 4329/M 4331/M 4333 

pte op 4380 4389/™ 4395 4335 4396 4401/M 4402/M 

pte op 4552 4565/M 4S66 4567 4575 4577 

pte op 4641 4706/M 4707 4708 

pti 19870 4334/M 43688 4332 4571 4578/M 5001/S §002/S 5061/S 
5064/S 5067/M 5077/M 5126/M 

pti 4246 4312/M 4312/™M 4312 4312 4312/M 4312/S 4312/S 4312/S 
4312/s 

pti 4261 4289/M 4290/S 4290/S 4291/S8 4291/S 4292/Ss 4233/8 4296/M 
4236 4237 4298/M 4310 4311/P 4325/Ss 4333/Ss 4334 

pti 4371 4407/M 4407/M 4407 4407 4407/M 4407/8 4407/S 4407/S 
4407/S 

pti 4381 4387 4388/M 4389/Ss 4332 4407/P 

pti 4435 4441/M 4443/M 4443 4444 4445/M 4447/8 4447/8 4448/S 
4449/S 

pti 4553 4563/M 4565/S 4571 4578 4586 4591/M 4591 4592 
4593/M 

pti 4642 4658 4659/M 4659 4660 4661/M 4661 4671/P 4706/S 
4721/M 4721 4722 4723/M 

pti 4783 4808/M 4813/S 4814/S 4872/M 4872 4873 4874/M 

pti 4930 5041 5062/S 5065/Ss 5067 5074 5077 5122 5126 

pti_offset 4643 4705 

pti _offset 4784 4810 4812 4835 

queue _ id 342 4058 4108 417145 4838 4856 

queue _id 1967 4569 4711 4711 4712 4988 asg6 5038 

rcount 4644 4716/P 

reassign_asiad 43193 4680 5146 

reassign_loop 4982 4382 4997 5106 


*** REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, Is1/0 ref, Reread, Wewrite, P=sparameter 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page table _ full _handier 


IDENTIFIER: cece ee ee cee eee eee 


reassign_pass 
reclaim_astes 
reclaim _loop 
residence 
residence 
residence 
residence 
pma 


save_ index 
save_pti 
“sdat_offset 


seg 
segment _ Tink 


segment_table_ length 
segnum 
segnum 


sfid 

sfid 

sfid 

sfid 

sfid 

sfid 

sft$counter 
Sft$S$file_ space _limit_kind 
sort_ index 


_starting pti 
status 
status 
status 
status 

ste 


- Stop_pfti 
sva 


sva 
‘$va 


be 3 


REFERENCES OF 


PAGE TABLE FULL MANAGER 


reassign_asid - Used with page table full _handier 
IDENTIFIER--------- SASHES RUE ee ee Behe DEFINED =< <rece 2 ose ice 
ON LINE 
Swap_status 1282 
syc$ucr_ condition 3248 
syc$user_defined condition 3249 
Syt$monitor flag 3155 
syt$monitor_ flags 3140 
sytSmonitor_ status 787 
temp sva 4334 
time_ freed 339 
timestamp 3781 
tmc$broken_task_fault_id 3176 
tmcS$btc_ invalid _ao 3274 
tmc$btc_invalid_p 3274 
tme$btc_mcr_traps_disabied 3275 
tmeS$btc_mf_ traps _ disabled 3274 
tme$btc_mntr_fauilt buffer full 3273 
tme$btc_system_error 3276 
tmeS$btc_ucr_ traps_disabied 3275 
tmceS$dummy_ fault 3177 
tme$flag available 31 3411 
tmc$fnx_cont inue 3554 
tmc$fnx_ job 3554 
tmc$fnx_system 3554 
tmc$maximum_monitor_faults 3181 
tmce$maximum_signals 3391 
tmc$maximum_system_task_id 3424 
‘tmc$mcr_ fault 3176 
tmc$signal_available_63 3373 
tmc$stid_ null task 3430 
tmp$clear_ lock 2110 
‘tmp$find_next_xcb 3545 
‘tmp$set_ lock 2153 
tmt$broken_ task _ condition 3273 
tmt$broken_task_monitor_ fault 3287 
tmt$find_next_xcb_ state 3556 
tmt$fnx search _ type 3554 
tmt$mcr_faults 3312 
tmt$monitor_fault_buffer 3166 
tmt$monitor_fault_ buffers 3172 
tmt$monitor_fault_identifiers 3175 
tmt$pti_ lock 2141 
tmt$signal 3329 
tmt$signal buffer 3321 
_tmt$signal_buffers 3388 
‘tmt$system_f lags 3394 
amt $system_task_id 3427 
tmt$task_queuve_ Tink 1075 
stmv$pt 1_ lock 2204 
trace 3732 


a 


i 


ees 


mmm$asid_ page _table_manager 


DEFINED 
ON LINE 
A764 


REFERENCE ABBREVIATIONS 


mmm$asid_ page table manager 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


2275 
32593 
3261 
3140 
2416 
22398 


5033/M 
3907 
4665/M 
3226 
3295 
3295 
3296 
3294 
32394 
3290 
3296 
3232 
3415 
4137/P 
4061/P 
4059/P 
3172 
3388 
3427 
3228 
3384 
3427 
2092 
8os9 
2085 
3289 
3227 
3548 
3545 
3229 
2453 
3167 
3225 
2110 
3324 
2454 
3322 
2429 
24206 
1068 
2085/P 
4842/P 
3737 
40395 


: Memodify, 


1.09 88102 
REFERENCES 
3784 4638 
3888/M 4650 
4199 4218 
8493 877 
8439/M 849 
877/M 881 
4071/M 4071 
4331/M 4396 
4889 /M 4891 
4310/M 4312/P 
2333 3467 
2333/M 
4125/M 
4125/P 4131 
849 /M 849 /M 
88O/M 883/M 
4071/M 4071/M 
4344 4344 
8422 4422 
4468 4468 
4503 4506 
4126 
3467 
4126/M 4127 
4135/M 4135 
4000/M 4070 
849/P 
8493 849 
877 878 
4071/P 
4071 4071 
1705 1706 
2588 
4677 4679/S 
4693 4864/M 
4131 4132/M 
4078/M 4149 
4153 4154 
4270 4275/M 
2279/P 
2303/P 
4713/P 
4842/P 
4078/M 4131 
4827 
5115/M $118 
4387 4395 
5073/M 5074 
4270 4328 
4652/P 4658 
M=modify, 


1.9 88102 


4713 


2320 


5040/M 
3937/M 


2123 
4061 
2171 


4048 
3557 


3168 
3301 
2153 


3323 


1971 
2092/P 
4842/P 
3881 
4105 


4781 
4651/M 


4070 
849 
882 

4071 

4567 


4125 


4132/M 
849 
889 

4071 

4344/M 

4422 

4482/M 

4507 


4128/M 
4148 
4071/P 


849 
879 


4071 


4888 
4133/M 
4150/M 
4155/M 
4275 


4132/M 


5118 
4395 
5121 
4330 
4664 


Azsattribute, 


4842 


5041 


2280 
4137 
2278 


3169 


2204 


3324 


2278/P 


3887 
41093 


Azattribute, 


4071 


4707 


4133/M 


4344/M 
4422/5 
4483/M 
45039/S 


4130 
4149/58 
4107 


84s 
890 


4071 


4888 
4827 


4276 


4149 
4577/M 
5127/M 


4671/P 


4713 


4713 


2280/P 


3905 
4112 


4107 


4814 


4422 
4422/M 
4500 
aso3gs/M 


4130 
4150/8 
4838 


4277/M 


4150/M 


4993 


4683 


Stsubscript, I:1/0 


4717 


4717 


4713/P 


3813 
41397 


Szsubscript, 1:21/0 


1889-08-21 


4838 


4422 
4422 
4501 
4509 


4131/S 
4153 
4854 


4277 


4154 


5039 


ref, Rtread, 


1989-08-21 


4842 


4842 


4713/P 


3947 
43083 


ref, Reread, Wewrite, 


13:33:34 
48854 
4422/58 4422/M 
4422/M 4422/M 
4503/58 4503/M 
4512/M 4513/M 
4132/5 4133/8 
4154/8 4155/58 
4289 4311/P 
4155/M 4826 
5054/M 5053/M 

Wewrite, 

13:33:34 
&4717/P &4717/P 
40083 408s6 
4318 4570 


PAGE 313 


Pzparameter 


PAGE 314 


P=par ameter 


REFERENCES OF mmm$asid_page_table_ manager 


PAGE TABLE FULL MANAGER 
reassign asid - Used with page _tabie_full_handier 


IDENTIFIER--------e-----e--e-- DEFINED---------------- 
ON LINE 


4941 


try count 

u 420 
unlink page from_segment 4373 
v 418 
xcb op 2328 
xcb op 3463 
xcb_p 4033 
xcb_p 4047 
xcb state 4048 
xcount 4545 
xp 2415 
xpfti 2241 
xpFft i 3520 
xpft i 4919 
xpFft i 4919 
xpti 4246 
xpti 4371 
xpti 4430 
xpti 4544 
zaste_p 3871 
zaste_p 3944 
zaste_ op 38380 


OK REFERENCE ABBREVIATIONS 


SOURCE LIST OF mmm$deadstart_initialization 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 


1.0 89102 
REFERENCES 

4572 4676 4678 
4392 439998 5034 
51198 5124 §143 
4953 4953 
4326/M 5003/M 5064 
4421 
4324/M 4401/M 5004/M 
2333 2333 
3466 3467 
4125 4125 
4059/P 4061/P 4070 
4137/P 
4o59/P 4061/P 4137/P 
4585/M 4597/M 
4126 
2256/M 
32539/M 
4958/M 5035/M 5116/M 
5007/M 5083/M 5132/M 
4312 
4407 
4441 
4586/M 
39316/P 3917 
3951/M 3952 
3987/P 3988 

Memodify, Aztattribute, 


2 MODULE mmm$deadstart_ initialization; 
3 
5 { 
6 { PURPOSE: 
7 { This module contains procedures used during deadstart to 
& { memory manager tables. 
s { 
10 
o 3453S {External procedures used by this module. 
Oo 3460 
° 3461 
Oo 3462 PROCEDURE [XREF] osp$reset_heap (hp: Aost$heap; 
oO 3463 heap_length: integer; 
Oo 3464 lock option: boolean; 
oO 3465 algorithm: o 255); 
Oo 3466 
3469 
3470 
3471 PROCEDURE [XREF] dsp$allocate_continuous memory 
3472 heap_p: Aost$heap; 
3473 size: integer; 
3474 VAR return_seq_p: 4SEQ ( * )); 
3475 
++] 3478 
o 3479 PROCEDURE [INLINE] dsp$convert_seq_p_to_r_pointer 
© 3480 { seq_p: ASEQ ( * ); 
o 3481 VAR r_pointer: dst$r_pointer ); 
oO 3482 
3512 
3513 PROCEDURE [XREF] dsp$fetch_boot_data 
3514 ( data_kind: dst$boot_data_kinds; 
3515 VAR data_p: ASEQ ( * )); 
3516 
+] 3534 
© 3535 PROCEDURE [XREF] dsp$store_data_in_ssr 
oO 3536 ( ssr_ entry name: dst$ssr_entry name; 
Oo 3537 ssr_value_p: ASEQ ( * )); 
o 3538 
4212 
4213 
4214 PROCEDURE [XREF] gfp$assign_fde 
4215 ( residence: gft$table_residence; 
4216 segment_number: ost$segment ; 
4217 VAR sfid: gft$system_file_identifier; 
4218 VAR fde_p: gft$file desc_entry _p); 
4219 
oO 4417 
© 4418 PROCEDURE [INLINE] gfp$get_fde_p (sfid: 
o 44198 VAR fde_p: gftS$file_desc_entry _p); 
Oo 4420 
Oo 4421 


1989-08-21 13:33:34 
8704 4715 4833 439380 438 
5055 5060 56071 5076 511 
5065/M 
5004 
4085 4124 4124 4125/P 412 
Sz:subscript, I:I/0O ref, Rtread, Wewrite, 


initialize 


gft$system_file_ identifier; 


1989-08-21 


13:33:34 


PAGE 315 
=] 
7 
6 
Pzsparameter 


PAGE 316 


SOURCE LIST OF mmm$deadstart initialization 


jmp$get_ijle_p (ijl_ordi 


NOS/VE CYBIL/II 


1.0 89102 1989-08-21 


4455 PROCEDURE [inline] nal: jmt$ijl_ ordinal; 
4456 VAR ijle_p: Ajmt$initiated_job_list_entry); 
4a587 
Oo 4465 
O 4466 PROCEDURE [XREF] mmp$assign_mass_ storage 
Oo 4467 ( segment_number: ost$segment ; 
oO 4468 sfid: gft$system_file_identifier ; 
oO 44469 min_allocation_length: ost$segment length; 
Oo 4470 VAR status: ost$status) ; 
ce) 4471 
4474 
4475 { Convert page streaming transfer size from bytes number of pages expressed as a power of 2 
4476 
4477 PROCEDURE [INLINE] mmp$convert_ps_transfer_size (ps_transfer_size: integer; 
4478 VAR ps_transfer_size_power: 0..15); 
ce) 4504 
oO 4505 PROCEDURE [XREF] mmp$free_pages (pva: Acel11; 
Oo 4506 length: ost$byte_ count; 
° 4507 waitopt: ost$wait; 
o 4508 VAR status: ost$status) ; 
o 4509 
4520 
4521 PROCEDURE [INLINE] mmp$get_max_sdt_pointer 
4522 { xcb_p: Aost$execution_control block; 
4523 VAR sdt_p: mmt$max_sdt_p); 
4524 
Oo 4532 
© 4533 PROCEDURE [INLINE] mmp$get_max_sdt_sdtx_pointer 
Oo 4534 { xcb_p: Aost$execution_control block; 
Oo 4535 VAR sdt_p: mmt$max_sdt_p; 
© 4536 VAR sdtx_p: mmt$max_sdtx_p)j; 
Oo 4537 
4546 
4547 FUNCTION [INLINE] mmp$get_sdt_entry_p 
4548 ( xcb p: AostS$execution_control_ block; 
4549 segnum: ost$segment): Ammt$segment_descriptor ; 
4550 
4551 mmp$get_sdt_entry_p :: #address (1, #segment (xcb_p), 
4552 &8 * segnum + xcb_ pA.sdt_offset); 
4553 
4554 FUNCEND ; 
4555 
o 4558 
o 4559 FUNCTION [INLINE] mmp$get_sdtx_entry_p 
Oo 4560 ( xcb_p: Aost$execution_control block; 
oO 4561 segnum: ost$segment): Ammt$segment descriptor _ extended ; 
Oo 4562 
Oo 4563 mmp$get_sdtx_entry_p :=: #address (1, #segment (xcb_p), 
Oo 4564 #SIZE (mmt$segment_descriptor_extended) * segnum + xcb_pA.sdtx_offset}) ; 
ce) 4S65 
O 4566 FUNCEND ; 
Oo 4567 
4570 
4571 PROCEDURE [XREF] mmp$issue_ring!_segment_request ( 
4572 VAR rb: mmt$rb_ring1_ segment _request ); 
° 4630 
Oo 4631 PROCEDURE [INLINE] mmp$set_include_pages_in_dump 
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{error_message: 
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mmt$segment descriptor ; 


string ( * ); 


(error_message: string {( * }; 


xeb (VAR xch: 


of the segment descriptor 
mode during deadstart. 


of the segment descriptor table 
job mode during deadstart. 


Oo 4632 ( segment_nmumber: ost$segment ; 
oO 4633 fde_p: gft$locked_ file desc_entry_p; 
Oo 4634 sdt_p: Ammt$segment descriptor ; 
o 4635 VAR include_pages_in_dump: boolean) ; 
© 4636 
oO 4637 IF (sdt_p4.ste.wp <> osc$non_writable) THEN 
oO 4638 IF (segment_number < mmc$first_loader_predefined_ seg) OR 
Oo 4639 (fde_p%.stack_for_ring <> ©) OR 
o 4640 (fde_pA.flags.global_template_file) OR 
o 4641 (sdt_pA.ste.r1 <= 2) THEN 
Oo 4642 include pages_in_dump :=: TRUE; 
fe) 4643 ELSE 
Oo 4644 include pages_im_dump :=: FALSE; 
ce) 4645 IFEND; 
© 4646 ELSE 
oO 4647 include _pages_in_dump :=: FALSE; 
° 4648 IFEND; 
° 4649 
oO 4650 PROCEND mmp$set_include_ pages_in_dump; 
° 4651 
4658 PROCEDURE [XREF] mmp$set_segment_access_ rights (sd: 
4659 VAR stxe: mmt$segment_descriptor_ extended) ; 
4660 
.°] 4663 
.) 4664 PROCEDURE [XREF] osp$fatal_system_error 
oOo 4665 status: Aost$status) ; 
Oo 4666 
Oo 4667 PROCEDURE [XREF] osp$system_error 
o 4668 status: Aost$status) ; 
° 4669 
4672 
4673 PROCEDURE [INLINE] pmp$find_executing task_ 
4674 Aost$execution_control_ block); 
o 4690 PROCEDURE [XREF] pmp$zero_out table 
° 4691 { p: Acell; 
Oo 46392 len: ost$byte_count) ; 
° 4683 
4696 
4638 
46993 VAR 
4700 adsv$ssr_size: [XREF] 0 Off FfFF( 16); 
4701 
4702 
4703 { Define variabie that is the address (PVA) 
4704 { table (SDT). The pointer is valid in job 
4705 
4706 VAR 
4707 jmv$sdt: [XREF] mmt$max_sdat ; 
4708 
oO 4711 
Oo 4712 
oO 4713 { Define variable that is the address (PVA) 
o 4714 { extended (SDTX). The pointer is valid in 
Oo 4715 
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VAR 
imv$sdtx: [XREF] Ammt$segment_descriptor _table_ex; 


VAR 
jmv$jmtr_xchb: [XREF] ost$execution_control block; 


VAR 
isv$swapped_page_entry_size: [XREF] 0. .of f(16); 


{This deck contains XREFs to variables used by Memory Manager in 


{monitor mode. The variables are initialized by a job mode 
{during system deadstart. 


VAR 
mmv$a_divisor: [XREF] © .. 10000(16), 
mmv$a_muit: [XREF] © .. 10000(16), 


mmv$number_ free _astes: [XREF] integer; 


routine 


1989-08-21 13:33:34 


{Define variable used to indicate if memory manager tabies have been initialized. 


VAR 
mmv$tables initialized: [XREF] boolean; 


VAR 
mmv$total_page_ frames: [XREF] mmt$page_frame_index; 
{Define page table length in words. 


VAR 
mmv$pt_length: [XREF] integer; 


{Time for next periodic call to Memory Manager from CP Monitor. 


VAR 
mmv$time_to_call_mem_mgr: [XREF] integer ; 
{Define pointer to array for holding PFTI lists. This array 
{PFTIS of pages belonging to a segment. 


VAR 
mmv$pfti_array_p: [XREF] Ammt$pfti_array; 


TYPE 
mmt$pfti_array = RECORD 
pfti_first: © .. osc$max_page_frames, 
pfti_index: © .. osc$max_page_frames, 
last _pfti_index: © .. osc$max_page_ frames, 
pftis: ARRAY [O .. *] of mmt$page_frame_index, 
RECEND ; 


is used in monitor for holding lists 


{The following variable contains a count of the number of page frames that can be reassigned to be 


and pages with I10 active. 


1989-08-21 13:33:34 


the continue bit in 


is non-zero, the continue bit 


{used for another purpose. The count represents the number of pages that are in the free + available 
{queuvues. The count is broken into two parts - pages with no I0 active, 
mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 
VAR 
mmv$reassignable_page_frames: [XREF] mmt$reassignable_page_frames; 
VAR 
mmv$image_ file: [XREF] mmtS$image_file; 
{Pointer to the Active Segment Tabte - (AST).} 
VAR 
mmv$ast_p: [XREF] Ammt$active_segment_table; 
{ 
{CONTINUE BIT COUNT - This array is used to manage the continue bits in the page table. 
{ Each entry in the array contains a count of the number of ‘times’ 
{ the corresponding page table entry is ‘set’. If the count 
{ is set. 
VAR 
mmv$continue_bit_count_p: [XREF] Ammt$continue_bit_count; 
{ Global Page Queue List array. 
VAR 
mmv$gpqi: [XREF] mmt$global_page queue list; 
{ The data consists of pointers to the various mmv$ variables managed by MMU and also the default vaiue 
{ for each of the variables and the default value of the Global Page Queue List. The default values 
{ are saved by mmm$deadstart_initialization. 
VAR 
mmv$manage_ memory utility: [XREF] mmt$manage_memory_ utility; 
VAR 
mmv$pages_per_new_page_fault: [XREF] 1 .. 8; 
{This variable the time interval between calls from CP Monitor to 
{memory manager MMP$PERIODIC_ CALL procedure. 
VAR 
mmv$periodic_calil_interval: [XREF] integer; 
iThis variable the rate at which Memory Manager ages out all pages of all 
{working sets that have not been referenced since the last time the 
{aging was done. 
VAR 
mmv$shared queue_age_ interval: [XREF] integer; 
{Pointer to the ‘PAGE FRAME TABLE’ (PFT) 
VAR 
mmv$pft_p: [XREF] Ammt$page_frame_tabie; 
{Pointer to the system PAGE TABLE (PT). 


VAR 
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4869 mmv$pt_p: [XREF] Aost$page_table; 
4870 
° 4873 
.°) 4874 
° 4875 Define XREF variable for default SDTX entry. 
O° 4876 
° 4877 VAR 
Oo 4878 mmv$default_sdtx_entry: [XMREF, READ, oss$mainframe_paged_ literal] 
Oo 4879 mmt$segment_descriptor_ extended; 
° 4880 
4886 {Maximum number of segments in the system (number of ASIDs).} 
4887 
4888 VAR 
4889 mtv$mx_segments: [XREF] 0 .. OF FFFFFFF( 16) ; 
4890 
4891 VAR 
4892 esv$cpus_logically_om: [XREF] © .. osc$max_ number _of_ processors; 
4893 
ce) 4903 {This variable specifies the lower and upper RMA addresses availabie to NOSVE. 
° 4904 
fe) 4905 VAR 
oO 4906 osv$180_ memory _limits: [XREF] record 
Oo 4907 lower: O .. OF FfFFfFFFF(IE), 
oO 4908 deadstart_upper: © .. Of FfFfFFFFF( 16), { Upper limit of memory during deadstart. 
o 4909 upper: 0 .. Of FF FFFFF( IE), 
° 4910 recend; 
° 4911 
© 4912 {System page size. } 
° 4913 
° 4914 VAR 
Oo 4915 osv$page_ size: [XREF] ost$page_size; 
° 4816 
4919 
4920 VAR 
4921 dfv$server_wired_ heap: [XREF, dfs$server_wired] Aost$heap; 
4922 
° 4929 
° 4930 VAR 
o 49831 nav$network_wired heap: [XREF, oss$network_ wired] Aost$heap; 
° 4932 
4944 
4945 VAR 
4946 nav$network paged _ heap: [XREF, oss$network_paged] Aost$heap; 
4947 
© 4954 
te] 4955 Define variable that wiltl contain the SDT index for the first transient segment. 
° 4956 
° 4957 VAR 
o 4958 mmav$first_ transient _seg_ index: [XDCL] ost$segment := mmc$first_transient_segment ; 
° 49598 
° 4960 VAR 
oOo 4961 miv$snhared_ segment: [XREF] mit$shared_segment ; 
° 4962 
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4965 
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4373 
43974 
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43977 
4378 
4379 
43980 
4981 
4382 
49383 


.4984 


4385 
43986 
4987 
4988 
4989 
43990 
4991 
4392 
4393 
4994 
4995 
4996 
4997 
49398 
4399 
5000 
5001 
5002 
59003 
S004 
5005 
5006 
5007 
5008 
5009 
5010 


mmp$ast_ index 


{Purpose: 
{These functions convert AST indexes into an ASID and vise-versa. 
{Input: 


AST_tmdex or ASID 


{Output : 


asid or ast_index 


VAR 
bits: array [© .. 15] of 0 .. 255 := [{0, 8, 4, 12, 2, 10, 6, 14, 1, 9, 5, 13, 3, 11, 


PROCEDURE [INLINE] mmp$asti (xasid: ost$asid; 
VAR xasti: mmt$ast_index); 


VAR 
asid: ostS$asid, 
i: integer, 
asti: integer ; 


asid := xasid DIV mmv$a_mult + (xasid MOD mmv$a_mult) * mmv$a_divisor ; 
asti = 0; 
FOR i := 1 TO 4 DO 
asti > asti * 16 + bits [asid MOD 16]; 
asid := asid DIV 16; 
FOREND ; 
xXaSti := asti; 


PROCEND mmp$asti; 


PROCEDURE [INLINE] mmp$asid (xasti: mmt$ast_index; 
VAR asid: ost$asid) ; 


VAR 
asti: mmt$ast_ index; 
asti = xasti; 
asid := (bits [asti MOD 16) * 4096) + (bits [(asti DIV 16) MOD 16] * 256) + (bits [(asti 
* 16) + bits [(asti DIV 4086) MOD 16]; 
asid = asid DIV mmv$a_divisor + (asid MOD mmv$a_divisor) * mmv$a_multt ; 


PROCEND mmpSasid; 


ee ed 


DIV 256) MOD 


16] 
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NIL); 


TS to pages 


o s012 { 
oO 8013 { This precedure is used during deadstart to add job template segments to the address space 
o 85014 { of the system job monitor. 
o 5015 f{ 
oO S016 
Oo $8017 
Oo 5018 PROCEDURE [XDCL] mmp$add_global_templiate_segment 
4 5019 ( sdt_entry: mmt$segment_descriptor; 
4 §020 sdtx_entry: mmt$segment_ descriptor extended; 
4 5021 segnum: ost$segment ; 
4 5022 VAR status: ost$status); 
4 $023 
4 §024 VAR 
4 §025 fde_p: gft$file_desc_ entry _p, 
4 $026 page streaming transfer size: © .. 15, 
4 5027 ste_p: Ammt$segment_descriptor, 
4 5028 stxe_p: Ammt$segment_descriptor extended, 
4 5029 xcb_p: Aost$execut ion_control_biock; 
4 5030 
4 $031 status.normal :: TRUE; 
4 $032 
4 5033 pmp$find_executing task_xcb (xcb_p); 
14 5034 IF xcb_p <> Ajmv$S$jmtr_xcbh THEN 
34 S§035 osp$system_error (‘MM - incorrect call to mmpS$add_giobal_template_ segment’, 
SC 5036 IFEND; 
sc 5037 
5C 5038 mmp$convert ps_transfer_size (16384, page_ streaming _transfer_size}; {convert 
96 50338 ste_p := mmp$get_sdt_entry_p (xcb_p, segnum) ; 
96 5040 stxe_p := mmp$get_sdtx_entry p (xcb_p, segnum) ; 
96 §041 
96 5042 ste_pA := sdt_entry; 
$6 5043 Stxe pA := sdtx_ entry; 
Fc S044 Stxe_ pA.stream.transfer size := page streaming transfer size; 
FC 5045 
FC S046 IF stxe_ pA.sfid.residence = gfc$tr_null_residence THEN 
114 5047 assign _fde (gfc$tr_job, ©, segnum, stxe_pA.sfid, fde_p); 
12E 5048 IFEND; 
12E 8049 
12E 5050 gofp$get_fde_p (stxe_pA.sfid, fde_p); 
184 S051 fde_p%.flags.global_ template file :: TRUE; 
184 5052 


184 §053 PROCEND mmpSadd_globail_tempiate_ segment ; 
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° 5055 

oO S056 PROCEDURE [XDCL, #GATE] mmp$write_ali_segments_ to_disk 

© $057 (VAR status: ost$status); 

© 5058 

° 5059 

© S060 VAR 

o 5061 xcb p: Aost$execution_control_block, 

ce] 5062 rb: mmt$rb_ ringi_segment_request, 

© 5063 segnum: ost$segment, 

Oo 5064 st_p: mmt$max_sdt_p; 

° S065 

o 5066 rb.reqcode := syc$rc_ringi_segment_request ; 

4 S067 rb.request := mmc$sri_flush_ seg segnum; 

4 5068 rb.wait for _io complete := FALSE; 

4 5069 pmp$find_executing task_xcb (xcb_p); 

1E 85070 mmp$get_max_sdt_pointer (xcb_p, st_p); 

1E 5071 FOR segnum := 1 TO #READ_REGISTER (osc$pr_segment_table_ length) 
SE 5072 IF (st_pA.st [segnum].ste.vl <> osc$vl_invalid_entry) 

72 $073 mmp$assign_mass_storage (segnum, gfv$null_sfid, ©, status); 
9A 5074 IF status.normal AND (segnum <> xcb_p4.xp.tos_ registers [1].pva.seg) THEN 
B2 5075 rb.segnum :: segnum; 
B2 S076 mmp$issue_ringi_segment_request (rb); 

CA 5077 IFENO; 

CA 5078 IFEND; 

CA 5079 FOREND; 

leze) 5080 status.normal := TRUE; 

DO 5081 


BO 5082 PROCEND mmp$wr ite_all_segments_to_disk; 
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mmm$deadstart initialization 


re 


{Name: 
{ mmpS$initialize 
{Purpose: 
This routine is the first procedure 
deadstart. Later deadstart will 
mmp$pft_initialize, 
Input: 
none 
Output: 
The static data constants are 


Error Codes: 
none 
Notes: 


- The system heap must be initialized 


Coe I ote ote Bote Bote Ete eee oe te te ote one te 


PROCEDURE [XDCL] mmp$initialize; 
VAR 
pti: integer, 
i: integer, 
index ma: mmt$mmu_memory attributes; 


{Set up static data constants. 


i #:2 #READ_ REGISTER 
mmv$pt_length := (i + 1) 
i 3:2 § MOD 100(16); 

mmv$a_divisor := 256 DIV (i + 
mmv$a_mult := 10000(16) DIV 
mmv$pt_p := #ADDRESS (1, 0, 0); 
osv$page_size := 512 # (128 - 


* 512; 


1); 


osv$180_ memory limits. lower := 
osv$page_ size; 


Set all continue bits in the page tabie. 
fault processor used before AST/PFT 
be cleaned up during PFT initialization. 


amare 


FOR pti := © TO mmv$pt_length - 1 
mmv$pt_pA [pti].c := TRUE; 
FOREND; 


DO 


{ Copy the current values of mmv$gpqi 
{ the default copies so that the MMU will 
{ reset values to their default. 


FOR index ma :: LOWERBOUND 


> mmu_inmteger = 


mmm$deadstart initialization 


mmv$manage_memory_utility.ma 
= mmu_byte = 
mmv$manage_memory_utility.ma 
CASEND; 
FOREND ; 


mmv$manage_memory_utility.gpqi := 


{ Initialize fields in the SDTX. 
mmp$sdtx_initialization; 


PROCEND mmp$initialize; 


NOS/VE CYBIL/II 


initialized and the SDTX witli 
a call to the procedure mmp$sdtx_initialization. 


(osc$pr_page_table_ 


#READ_ REGISTER 


initialization 


= (mmv$manage_ 
CASE mmv$manage_memory utility.ma [index _ma].value_type OF 


NOS/VE CYBIL/II 


[index _ma].default 


[index _ma].default :: 


1.90 89102 


be initialized via 


before calling this routine 


length) ; 


mmv$a_divisor ; 


(osc$pr_page_size_mask) ); 


((esv$180_ memory limits. lower + osv$page_ size - 1) 


Continue bits are not managed by the page 
is complete. 


and other mmv$ variables managed by the Manage Memory Utility 


have available the original values when it 


memory utility.ma) TO UPPERBOUND 


1.09 89102 


mmv$gpqi; 


1989-08-21 


(mmv$manage_memory_ utility.ma) 


1989-08-21 


mmv$manage_ memory _utility.ma 


mmv$manage_ memory_utility.ma 
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in the module mmm$deadstart_initialization to be called during 
make separate calls to mmp$assign_device_shared_ segs, 
and to mmp$write_all_segments_to_disk. 


-eweweeaweeerem ewe wnw ee enn ene wee eee eee mw wwe we nee ewn wn eee eWwn ee wee were ewe wmreenwrewe ee nmr wee ewe wwe ewer wenwnve nmr eenwnn wen ewee er eone ee eeezeew en newnen nw oo 


DIV osv$page_size) * 


The continue bits will 


into 
is requested to 


DO 
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[index_ma].integer_p; 


[index_ma].byte_p%; 
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© 5156 

© S157 [«+-e ee eeere ee ee LS SoS Shee eS cee ee Soares TSN ie eS eS Srey ee a, wee) ee eee 

Oo 5158 {Name 

o S159 { mmp$pft_initialize 

© 58160 {Purpose: 

© 5161 { By the time this procedure is called the other procedures 

© 8162 { already been executed. This routine initializes the PFT, 

© 5163 {Input: 

ce) 5164 {Cutput: 

o 5165 { none 

o 5166 {Error Code: 

o 5167 { none 

° 5168 [--- eee ee tee ene SSS ae Sse See Se BSS ele SS S88 eS 6S eS Slee eS Se SS 

1°) 5169 

© 5170 PROCEDURE [XDCL] mmp$pft_initialize; 

fe) 5171 

° S172 TYPE 

te] 5173 asidq type = record 

oO 8174 asid: ost$asid, 

oO §175 queve_id: mmt$page_frame_queue_id, 

Oo 5176 qcb_p: Ammt$page_ queue _list_entry, 

Oo S177 aste_p: AmmtS$active_segment_tablie_entry, 

Oo 5178 fde_p: gftS$file_desc_entry_p, 

© 51798 recend; 

° 5180 

° 5181 VAR 

© 5182 asid: ost$asid, 

o 5183 asidi: ost$asid, 

o 5184 asid2: ost$asid, 

© 5185 asid3: ost$asid, 

o 5186 asid_seq_p: ASEQ ( * ), 

° 5187 asid size: integer, 

o 5188 asidq: array [0 40] of asidq_ type, 

o 5189 asidq p: Aasidq type, 

o 5190 aste_ p: Ammt$active_ segment _tabie_entry, 

Oo 5191 asti: mmt$ast_index, 

o 5192 boot_asids: dst$boot_asids, 

o 5193 boot_asids_ seq _p: ASEQ ( * ), 

o 5194 cbc_seq_p: ASEQ ( * }, 

o 5195 count: 1 32, 

Oo §196 fde_p: gft$file_ desc_entry_p, 

o 5197 first_image pfti: © OFF FFFFFF(IE6), 

° 5198 found: boolean, 

o 5188 _ fwd link: integer, 

© 85200 i: integer, 

o 5201 ijle_p: Ajmt$initiated_job_lTist_entry, 

Oo 5202 ipti: integer, 

oO 5203 j: integer, 

o 5204 last_asid: ost$asid, 

ce] 5205 next _asidq_ index: integer, 

oO S206 last _link_p: Ammt$ link, 

o $207 mf _ wired _asid_p: Ammt$mainframe_wired_asid, 

o 85208 pages to_dump_r_ pointer: dst$r_pointer, 

oO 5209 pft_p: Ammt$page_ frame_table_entry, 

o 5210 pft_seq_p: ASEQ ( * ), 

Oo 5211 pft_size: integer, 

Cd 
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oO §212 pfti: mmt$page_ frame_index, 
° §213 pftimax: integer, 
fe) 5214 pftimin: integer, 
o §215 pti: ost$page_table_index, 
© 5216 pt_p: Aost$page_ table, 
© 5217 pte_p: Aost$page table _ entry, 
oO 5218 qcb_p: Ammt$page_ queue _list_entry, 
o 5218 gueue_id: mmt$page_frame_queue_id, 
o $220 ro: mmt$rb_ringi_segment_request, 
Oo $221 residence: gft$tabie_ residence, 
Oo 5222 ssr_size: integer, 
© 5223 sdt_p: mmt$max_sdt_p, 
Oo 5224 sdtx_p: mmt$max_sdtx_p, 
© 5225 Sva: ost$system_virtual_address, 
o 5226 sdt_entry: mmt$segment_descriptor, 
Oo 5227 sdte: [STATIC] mmt$segment_descriptor := [[losc$v1_cache_bypass, osc$non_executable, 
© 5228 osc$read_uncontrolled, osc$write_uncontrolled, 1, 1, 0, * ], O, O], 
Oo 5229 sdtx_entry: mmt$segment_descriptor_ extended; 
° 5230 
ce) §231 
o 5232 { Set maximum number of ASIDS based on memory size and allocate the AST. 
Oo 58233 
Oo 5234 IF mtv$mx_segments = © THEN 
18 $235 mtv$mx_segments := ((osv$180_memory_limits.upper - osv$180_ memory limits. lower) DIV osv$page_size) 
18 5236 300; 
18 5237 IF mtv$mx_ segments > OFFFE(16) THEN 
40 5238 mtv$mx_ segments :=: OFFFE(16); 
4&8 5239 IFEND; 
48 5240 IFEND; 
48 5241 mmv$number free _astes ::5 mtv$mx_segments; 
4&8 5242 ALLOCATE mmv$ast_p: [0 (mtv$mx_segments)] IN osv$mainframe_wired heap; 
94 5243 i :2 oSv$180_ memory _limits. lower DIV osv$page_size; 
94 5244 IF i = O THEN 
AA 5245 io:s 1; 
AE 5246 IFEND; 
AE 5247 
AE 5248 { Allocate the PFT. 
AE $2495 
AE 5250 pft_size := (osv$180_memory_limits.upper DIV osv$page_size - i} * (#SIZE (mmt$page_frame_table_entry)); 
AE 5251 dsp$allocate_ continuous memory (osv$mainframe_wired_heap, pft_size, pft_seq_p); 
E4 5252 RESET pft_seq p; 
E4 5253 NEXT mmv$pft_p: [i (osv$180_ memory limits.upper DIV osv$page_size) - 1] IN pft_seq_p; 
13C 5254 
13€C $255 { Allocate the critical dump page bit table. 
13c 5256 
13C 5257 ssr_size :: ((dsv$ssr_size + osv$page_size - 1) DIV osv$page_size) * osv$page_size; 
13C 5258 pft_size := (((osv$180_memory _limits.upper + ssr_size) DIV osv$page_size) + 64) DIV 8; 
13C 65259. dspS$allocate_ continuous memory (osv$mainframe_wired_ heap, pft_size, pft_seq_p); 
182 5260 RESET pft_seq_p; 
182 5261 NEXT mmv$pages _to_dump_p: [0 .. (pft_size * 8) - 1] IN pft_seq_p; 
1C€6 5262 
*WARN* 5263 dsp$allocate_continuous_memory (osv$mainframe_wired_ heap, mmv$pt_length, cbc _seq_p); 
1F2 8264 RESET cbhc_seq_p; 
1F2 8265 NEXT mmv$continue_bit_count_p: [0 .. mmv$pt_length - 1] IN cbhc_seq_p; 
*WARN® 5266 ALLOCATE mmv$pfti_array_p: [0 (esv$180_ memory _limits.upper DIV osv$page_size) - i] IN 
280 5267 osv$mainframe_wired heap; 
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280 5268 
280 5269 {Zero out the tables allocated. } 
280 5270 
280 5271 pmp$zero_out_table (#LOC (mmv$ast_p’), #SIZE (mmv$ast_p)); 
28C 5272 pmp$zero_out_table (#LOC (mmv$pft_p’), #SIZE (mmv$pft_p)); 
xWARN* 5273 pmp$zero_out_table (#LOC (mmvS$pages_to_dump_p4), #SIZE (mmv$pages_to_dump_p)); 
2DQ 5274 pmp$zero_out_tablte (#LOC (mmv$continue_bit_count_p4), #SIZE (mmv$continue_bit_count_p)); 
2FA 5275 pmp$zero_out_table (#LOC (mmv$pfti_array pA), #SIZE (mmv$pfti_array_pA)); 
314A 5276 
314 5277 { Set cache bypass if multiprocessing enabled. 
314A 5278 
371A 5279 mmp$get_max_sdt_sdtx_ pointer (Ajmv$jmtr_xcb, sdt_p, sdtx_p); 
31A 5280 
314 5281 IF osv$cpus_legically_on > 1 THEN 
35E 5282 sdt_pA.st [Losc$segnum_mainframe_paged).ste.vl := osc$vl_cache_bypass; 
35E 5283 sdt_pA.st [#SEGMENT (#LOC (nav$network_paged_heaps))].ste.vi := osc$vil_cacne_bypass; 
35E 5284 sdt_p4.st [#SEGMENT (Amiv$shared_segment)].ste.vl := osc$vl_cache_bypass; 
3AA 5285 ELSE 
3AA 5286 {Make mainframe wired a cache segment 
SAAR 5287 rb.reqcode := syc$rc_ringt_ segment_request ; 
3AR 5288 rb.request := mmc$sri_make_mfw_cache; 
3AA 5289 rb.wait for _io_ complete := FALSE; 
3AH 5290 sdt_p4.st [#SEGMENT (osv$mainframe_wired_heap)].ste.v1l := osc$vl_reguiar_segment ; 
*WARN* 5291 mmp$issue_ring1 segment request (rb); 
3F2 5292 IFEND; 
3F2 5293 
3F2 5294 
3F2 5295 { Set up the table used to locate mainframe wired if the system crashes while ASID 
3F2 5296 { reassignment on mainframe wired is active. If the system crashes while this is 
3F2 5297 { happening, both old and new ASIDS must be located in the page table. 
3F2 §298 
3F2 52988 asid_ size :: #SIZE (mmtS$mainframe_wired asid) ; 
3F2 5300 dsp$allocate_continuous_memory (osv$mainframe_wired heap, asid_size, asid_seq_p) ; 
416 5301 RESET asid_seq_p; 
416 5302 NEXT mf _ wired _asid_p IN asid_ seq _p; 
440 5303 mmv$mf_ wired _asid := mf_wired_asid_p”; 
440 5304 mmvS$mf_ wired asid.current := sdt_pA.st [osc$segnum_mainframe_wired].ste.asid; 
440 5305 mmv$mf_ wired asid.new := 0; 
440 S306 
440 5307 pftimin := LOWERBOUND (mmv$pft_p); 
440 5308 pftimax :: UPPERBOUND (mmv$pft_ pA); 
440 5309 mmv$total_ page frames :: pftimax - pftimin; 
440 5310 : 
440 §311 imp$get_ijle_p (jmv$system_ijl_ordinal, ijle_p); 
440 5312 ijle_pA”.job_fixed_asid := sdt_pA.st [osc$segnum_job_fixed_ heap] .ste.asid; 
440 §313 
440 5314 
440 5315 { Free the pages used by the boot. The easiest way to do this at this point in deadstart 
440 5316 { is to delete the page table entries used by the boot. 
440 5317 
440 5318 boot_asids seq _p := #SEQ (boot_asids); 
*WARN# 5319 dsp$fetch_boot data (dsc$boot_asids, boot_asids_seq_p); 
4EC 5320 sdt_p4.st [Losc$segnum_job_pageable_heap].ste.vi := osc$vl_invalid_entry; 
4EC 5321 
4EC 5322 pt_p := mmv$pt_p; 
4EC 5323 asidit := boot _asids.code_data; 
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4EC 5324 asid2 := boot_asids. job_stack; 
AEC 5325 asid3 := boot_asids.mtr_stack; 
4Ec 5326 FOR pti := © TO mmv$pt_length - 1 DO 
§20 $327 asid := pt _pA [pti].pageid.asid; 
520 5328 IF (asid = asid!) GR (asid = asid2) OR (asid = asid3) THEN 
538 §329 pt_pA [pti].v := FALSE; 
538 §330 pt_p’ [pti] .pageid.asid := 0; 
554 §331 IFEND; 
554 $332 FOREND ; 
558 $333 
558 5334 
558 5335 { Search the segment table of the job monitor. For each valid entry, create an AST 
558 5336 { and FDE entry that describes the segment. 
558 5337 
558 5338 mext_asidq index := 0; 
558 5339 
558 5340 /scan_sat/ 
558 5341 FOR i := © TO jmv$jmtr_xcb.xp.segment_table_ length b5O 
56E 5342 IF sdt_p4A.st [i].ste.vl = osc$vl_invalid_entry THEN 
582 5343 CYCLE /scan_sdt/ 
586 §344 IFEND; 
586 5345 
586 5346 asidq_p := Aasidq [next_asidq_index] ; 
S86 5347 
586 5348 IF mmc$sa_wired IN sdtx_pA.sdtx_table [i].software_ attribute set THEN 
SAC 5348S queue _ id := mmc$pq_wired; 
5B2 5350 ELSEIF mmc$sa_fixed IN sdtx_pA.sdtx table [i].software_attribute set THEN 
SBA 5351 queue _id :: mmc$pq_job_fixed; 
5C4 5352 ELSEIF sdtx_pA.sdtx_ table [i].open_validating_ ring number = © THEN 
S§cc 5353 queue_id :: mmc$pq_shared_task_service; 
504 5354 ELSE 
504 5355 queue_id := mmc$pq_job_working set; 
SDA 5356 IFEND; 
SDA $357 
SDA 5358 asidq pA.asid := sdt_p%.st [i].ste.asid; 
SDA 5359 asidq pA.queue_ id := queue_id; 
504 S360 mmp$asti (asidq pA.asid, asti); 
636 5361 sdt_pA.st [Lil.asti := asti; 
636 5362 
636 5363 IF asti <= UPPERBOUND (mmv$Sast_p4) THEN 
662 5364 asidq_ pA.aste_p := Ammv$ast_p” [astil; 
662 5365 IF NOT asidq pA.aste_pA.in_use THEN 
676 5366 asidq pA.aste pA.in_use := TRUE; 
676 5367 IF queue_id < mmc$pq_jeb_base THEN 
682 5368 residence := gfc$tr_ system; 
688 5369 ELSE 
688 5370 residence := gfc$tr_job; 
68A 5371 IFEND; 
684A 5372 assign_fde (residence, asti, i, asidq_ pr.aste_p4.sfid, asidq p%.fde_p); 
6B8 5373 sdtx_ pA.sdtx_table [il.sfid : = asidq_p4.aste_ pA.sfid; 
6B& 5374 IF (queue_id = mmc$pq_job_working set) OR (queue _id = mmc$pq_shared_task_service) THEN 
6EO 5375 sdtx_pA.sdtx_tabie [i].assign_active := mmc$assign_act ive_escaped; 
6FA 5376 IFEND; 
6FA 5377 asidq pA.aste pA.queue id :* asidq pA.queue id; 
6FA 5378 asidg_ pA.aste_ pr.ijl_ordinal :: jmv$system_ijil_ordinal; 
6FA 5379 IF mmc$sa_stack IN sdtx_pA.sdtx_table [i].software attribute set THEN 
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72C 5380 asidq_p4A.fde_p4r.stack for ring : = sdt_pA.st [i].ste.ri; 

744 @#©§381 IFEND; 

744 5382 

744 5383 mmp$set_include_ pages _in_dump (i, asidq_pA.fde_p, Asdt_p4.st [il], 

744 5384 asidq p’.aste pA.include_ pages_in_dump) ; 

7A8 5385 mmv$number_ free _ astes := mmv$number_free_astes - 1; 

7B2 5386 

7B2 5387 IFEND; 

7B6 §388 

7B6 53893 ELSE 

7BG6 53906 asidq p%.aste_ p := NIL; 

7B6 $391 asidq p’.fde_p :=: NIL; 

TBE 5392 IFEND; 

7BE 5393 

7BE 5394 IF queve_id < mmc$pq_job_base THEN 

7C6 §395 asidq p%.qcb_p := Ammv$gpq! [queue_id].pqle; 

700A 5396 ELSE 

TDA 5397 asidq p%.qcb_p := Aijle_ pA. job_page queue _list [queue_id]; 

7FO 5398 IFEND; 

7FO 5399 next _asidq_ index := next_asidq index + 1; 

7TFO 5400 

7FO 5401 FOREND /scan_sat/; 

806 5402 

806 540603 last_asid := 90; 

806 5404 

806 5405 

806 5406 { Search thru the page table. Initialize the PFT entry for each page found and 

806 5407 { link the page to the correct page queue. 

806 540608 

806 5409 /scan_page_tabie/ 

806 5410 FOR pti := mmv$pt_ length - 1 DOWNTO © DO 

81C 5411 asid := mmv$pt_p’ [pti] .pageid.asid; 

81C. 5412 IF asid = © THEN 

830 5413 CYCLE /scan_page_tabie/ 

834 5414 IFEND; 

834 5415 pte_p :: Ammv$pt_p’ [ptil; 

&34 5416 

834 5417 { Find the ASIDQ table entry for the segment. Usually page table entries for the same segment 

834 5418 { are clustered together - skip the ASIDQ search if new entry is the same as the previous 

834 5419 { entry. If the entry is not found, the ASID must belong to a segment that is accessible in 

834 5420 { monitor mode ONLY. 

834 5421 

834 §422 IF asid <> last _asid THEN 

83A 5423 jo: 0; 

834A 5424 

834 5425 WHILE (j < next_asidq index) AND (asidq [j].asid <> asid) DO 

84C 5426 jo: 3 j + 1; 

84C 5427 WHILEND ; 

860 5428 

860 54298 IF j3 = next _asidq_index THEN 

864 5430 asidq p :* Aasidq [jl; 

864 5431 mmp$asti (asid, asti); 

8C2 5432 IF asti <= UPPERBOUND (mmv$ast_p4) THEN 

8DE 5433 asidq_ p4.aste_p := Ammv$ast_pA [asti]; 

8DE 5434 IF NOT asidq_ p4.aste_p%.im_use THEN 
* WARN * $435 assign_fde (gfc$tr_system, asti, Oo, asidq p%.aste pA.sfid, asidq pA.fde_ p); 
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5436 
5437 
5438 
5439 

5440 
5441 

5442 
5443 
5444 
5445 
5446 
5447 
5448 
5448 
5450 
5451 

5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 

5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 

5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 
5483 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 


asidq_ pA. fde_pA.file_kind :+ gfc$fk_monitor_only_ unnamed; 
asidq pA.aste prA.in_use := TRUE; 
asidq_ pA.aste_p%.queue_ id := mmc$pq_wired; 
asidq pA.aste_pA.ijl_ordinal :: jmv$system_ijl_ordinal; 
IF asid <> Offff(16) THEN 
asidq p’.aste_ pA.include pages_in_dump :: TRUE; 
IFEND; 
mmv$number free astes := mmv$number_free_astes - 1; 
IFEND; 
ELSE 
asidq p%.aste p := NIL; 
asidq p%.fde_ op := NIL; 
IFEND,; 
asidq_ pA.asid := asid; 
asidq_ pr.qcb_p := Ammv$gpqi [mmc$pq_ wired] .pqie; 
asidq p4.queue_id := mmc$pq_wired; 
next asidq _inmdex := next_asidq_index + 1; 
IFEND; 


asidq_p := Aasidg [jl]; 

aste_p : = asidq_ p’.aste_p; 

queue _id := asidq_ pA.queue_ id; 

qcb_p : = asidq pA.qcb p; 

last_asid :: asid; 

fde_p := asidq_ p4.fde_p; 
IFEND; 


pfti := (pte _pA.rma * 512) DIV osv$page_size; 


sva.asid := asid; 
Sva.offset := pte_pA.pageid.pagenum * 512; 
#HASH_SVA (sva, ipti, count, found) ; 
FOR i := 2 TO count DO 
ipti :5 ipti - 1; 
IF ipti < ©o THEN 
ipti := mmv$pt_length - 1; 


IFEND; 

mmv$continue_bit_count pA [ipti] := mmv$continue_bit_count_pA [ipti] + 1; 
FOREND ; 
IF aste_p <> NIL THEN 

aste_pA.pages_in_memory := aste_pA.pages_in_memory + 1; 
IFEND; 


IF (pfti < pftimin) OR (pfti > pftimax) OR (pfti = pftimin) AND (asid = OFFFF(16)) THEN 
IF (pfti >= pftimin) AND (pfti ¢= UPPERBOUND (mmv$pages_to_dump_pA)) THEN 
IF asid <> OFFFF(16) THEN 
mmv$pages_to_dump_ pA [pfti] := TRUE; 
IFEND; 
.IFEND; 
CYCLE /scan_page_tabie/ 
IFEND; 


pft_p := Ammv$pft_pA [pFftil; 
pft pA.pti :5 pti; 


13:33:34 


13:33:34 


PAGE 331 


PAGE 332 


SOURCE LIST OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 


MMPSPFT_INITIALIZE 


1989-08-21 


ASO 5492 pft_ pA.sva := sva; 
ASO 5493 pft_pA.queue_id := queue_id; 
ASO 54594 pft pA.aste_p := aste p; 
A900 5495 pft_ pA.age := 1; 
ASO 5496 pft_ pr.ijl_ordinal = jmv$system_ijl_ordinal; 
AS90) 8 6=655497 pft_ pA. locked page := mmc$1p_not_ locked; 
AgO 5498 pft_ pA. Tink. fwd := gqceb_pA. link. fwd; 
*WARN 5439 IF (fde_p <> NIL) AND (fde_p%.eoi_byte_address < sva.offset + osv$page_size) THEN 
B10 §500 fde_p%.eoi_ byte _ address := sva.offset + osv$page_size; 
Bi8 5501 IFEND; 
B18 5502 IF pft_pA.aste_p <> NIL THEN 
*WARN# 5503 link _page_to_segment_ ds (pfti, pft_p, aste_p); 
BAG 5504 mmv$pages_ to dump pA [pfti] := aste_p%.inciude_pages_in_dump 
BBC 5505 ELSE 
BBC 5506 mmv$pages_ to_dump_pA [pfti] := TRUE; 
BCC 5507 IFEND; 
BCC 5508 fwd_link := qcb pA. tink. fwd; 
BCC 5509 IF fwd Tink <> O THEN 
BD4 5510 mmv$pft_pA [fwd link].1link.bkw := pfti; 
BF4 5511 IFEND; 
BF4 5512 qcb_p’.1ink.fwd := pfti; 
BF4a 5513 qcb_p*.count := gqceb_ p&.count + 1; 
BF 4 $514 IF qcb_pA.jlink.bkw = © THEN 
COA 5515 qcb_ pA. 1ink.bDkw : = pfti; 
COE 5516 IFEND ; 
COE 5517 
COE 5518 FOREND /scan_page_table/; 
C36 5519 
C36 5520 first _image_pfti := osv$180 memory _limits.deadstart_upper DIV osv$page_size; 
C36 5521 qcb_p := Ammv$gpql [mmc$pq_free] .pqie; 
C36 5522 Vast_link_ p := Aqcb_pA. link; 
C36 5523 
C36 5524 /scan_pft/ 
C36 5525 FOR pfti := pftimin TO pftimax po 
CS6 5526 IF pfti >= first _image pfti THEN 
CSA 5527 IF mmv$pft_pA [pfti].age <> © THEN 
C7E §528 osp$fatal _system_error (’ Not enough memory to deadstart- NIL); 
CAO 55298 IFEND; 
CAO 5530 mmv$pft_ pA [pfti]. link. fwd := 0; 
CAO) 8 65531 mmv$pft_ pA [pfti].link.bkw := 0; 
CAO 5532 mmv$Spft_ pA [pftil.queue_id := mmc$pq_free; 
CAO $533 mmvSpft_pA [pfti].aste_p := IL; 
ccc $534 ELSE 
ccc 5535 IF mmv$pft_pA [pfti].age <> © THEN 
CFO 5536 CYCLE /scan_pft/ 
CF4 5537 IFEND; 
CF4 5538 Tast_1Tink_ pA. bpkw := pfti; 
CF4 5539 last_link p := Ammv$pft_pA [pfti]. link; 
CF4 $540 last_1ink pA. fwd := qcb pA. 1ink. fwd; 
Cra 5541 qcb_ pA. 1ink.fwd := pfti; 
CF4 5542 qcb_pA.count := qeb pA.count + 1; 
CF4 5543 mmv$Spft_ pA [pfti].queve_id := mmc$pq_free; 
CF4 5544 mmv$pft_ pA [pfti].aste_p :: NIL; 
DIE 5545 IFEND; 
DIE 5546 mmv$pft_ pr [pfti].segment_link. fwd :: 0; 
DIE 5547 mmv$pft_ pr [pfti].segment_link.bkw :=: 0; 
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DIE 5548 FOREND /scan_pft/; 
D4a4 5549 
p4a 5550 
D44 8551 {Store ASID in all unused AST entries. 
Daa $552 
D44 55583 FOR i := 1 TO mtv$mx_ segments 00 
DS6 5554 IF NOT mmv$ast_pA [i].in_use THEN 
D68 5555 mmp$asid (i, mmv$ast_p’ [i] .asid); 
DE& 5556 IFEND; 
DESs 5557 FOREND ; 
DEC 5558 
DEC 5559 
DEC 5560 {Set the count of the number of reassignable page frames. 
DEC 5561 
DEC 5562 mmv$reassignable_page_frames.now := qcb_p%.count ; 
OECc S563 
DEC 5564 
DEC 5565 FOR pti := © TO mmv$pt_length - 1 DO 
E12 5566 mmv$pt_ pA [pti].c := mmv$continue_bit_count_p4 [pti] > 0; 
E12 SS67 FOREND ; 5 
E36 5568 
E36 S569 mmv$time_to_call_mem_mgr := #FREE_ RUNNING CLOCK (0) + 5000000; 
E3C 5570 
E32C 5571 isv$swapped_page_entry_ size := #SIZE (jst$swapped_page_descriptor); 
E3C 5572 
) E3c 5573 { Set up pointer to flag SCI that a critical page dump is now availabie. 
E3C S574 
*WARN# 5575 dsp$convert_seq_ p_to_r_pointer (#SEQ (mmv$pages_to_dump_p4), pages_to_dump_r_pointer); 
ES2 5576 dsp$store_data_in_ssr (dsc$ssr_pages_to_dump, #SEQ (pages _to_dump_r_pointer)); 
F16 S577 mmv$tables initialized := TRUE; 
F16 5578 
F1i6 5579 { The number 16384 is arbitrary and only must be less than or equal to the 
F16 5580 { minimum allocation unit size. 
F116 5581 
Fi6 5582 mmv$pages_ per _new_page fault := 16384 DIV osv$page_size; 
F1G6 5583 IF mmv$pages_ per _new_page_ fault > 4 THEN 
F3A 5584 mmv$pages_ per _new_page_ fault := 4; 
F3E 5585 IFEND; 
F3E 5586 
F3E 5587 
F3E 5588 { The following code is to support the hyperchannel project. 
F3E 5589 
F3E 5590 IF osv$enable_hyperchannel THEN 
FaA 5591 sdt_entry := sdte; 
F4Q 5592 sdt_entry.ste.ri = 6; 
F4&a 5593 sdt_entry.ste.r2 = 6; 
F4A 5594 sdt_entry.ste.asid := 0; 
F4A 5595 sdt_entry.ste.vl := osc$vi_cache_bypass; 
F4Qh 5596 sdtx_entry := mmv$default_sdtx_entry; 
F74 55987 sdtx_entry.software attribute set := sdtx_entry.software attribute set 
F74 5598 Smmt$software attribute _set [mmc$sa_wired]; 
F74 5599 sdtx_entry.open_validating ring number := 6; 
F74 5600 sdtx_entry.inheritance := mmce$si_share_segment ; 
F74 5601 assign_fde (gfc$tr_system, 0, osc$segment_for_hyperchannel, sdtx_entry.sfid, fde_p); 
FAA S602 fde_ pA. file_limit := 989680(16); 


FAA 5603 fde_pA. last_segment number := osc$segment_for_hyperchannel; 


13:33:34 


13:33:34 


PAGE 333 


PAGE 334 


SOURCE LIST OF mmm$deadstart_initialization , NOS/VE CYBIL/II 1.0 89102 


MMPSPFT_INITIALIZE 


FAA 5604 sdt_pA.st [losc$segment_for_hyperchannel] := sdt_entry; 
FAA 5605 sdtx_p%.sdtx_table [osc$segment_for_hyperchannel] := sdtx_entry; 
FDO S606 IFEND; 
FOO 5607 
FDO 5608 PROCEND mmp$pft_initialize; 
o 5609 
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HEPA HAHHO OO OE 


{ 
{ 
{ 


Purpose: 


This procedure is called from mmp$pft_initialize to assign and 
entry for a segment. 


PROCEDURE assign_fde 


( residence: aft$tablie_residence; 
asti: mmt$ast_index; 
segnum: ost$segment ; 

VAR sfid: gft$system_file_ identifier ; 


VAR fde_p: 


agft$file_ desc_entry_p); 


ofp$assign_fde (residence, 0, sfid, fde_p); 
IF sfid.residence <> gfc$tr_system THEN 


fde_ pA.file_kind :: gfc$fk_unnamed_ file; 
fde_ pA.open_count := 1; 
fde_ pA.attach_coumt := 1; 
ELSE 
fde_ pA.flags.giobal_template file : = TRUE; 
fde pA.queue status := gfc$qs_global_shared; 
fde_ pA.attach_ count :=: of fFf(16); 
fde_pA.open_count := Of ff(16); 
IFEND; 
fde_ pA.asti := asti; 
fde_pA.last_segment_number := segnum; 
fde pA.global_task_id := jmv$jmtr_xcb.global_task_id; 
fde_ pA.global_task_id := jmv$jmtr_xcb.global_task_id; 
fde_ pA.file_ hash := segnum; 


sfid.file_hash := segnum; 


PROCEND assign_fde; 


initialize 


1989-08-21 


1989-08-21 


an FDE 
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SOURCE LIST OF mmm$deadstart_initialization 


mmp$create_ssr_sdtx 


OmnnMnoaeddocdodooac0dcagngd0odd 


5642 { Purpose: 


5643 
S644 
5645 
5646 
5647 
5648 
5649 
5650 
S651 
5652 
5653 
5654 
S655 
5656 
5657 
5658 
S659 
5660 
5661 
5662 
5663 
5664 
S665 
S666 
5667 
5668 
5669 
5670 
5671 


{ 
{ 


This procedure is called 


NOS/VE CYBIL/II 1.0 891062 


1989-08-21 


during deadstart to create a SDTX entry for the SSR. 


PROCEDURE [XDCL]} mmp$create_ssr_sdtx 
(VAR sdt_entry: mmt$segment_descriptor ; 
VAR sdtx_entry: mmt$segment_descriptor_ extended) ; 


VAR 


fde_ p: gft$file_desc_entry p, 
sfid: gft$system_file_identifier ; 


sdtx_entry := mmv$default_sdtx_entry; 
sdtx_entry.software_ attribute set := $mmt$software_ attribute _ set [mmc$sa_wired]; 


sdtx_entry.inheritance 


3 oe 
ri 


mmc$si_none; 


gofpS$assign_fde (gfc$tr_system, 90, sfid, fde_p); 


fde_pA.file_ kind := gfc$fk_monitor_only_unnamed; 
fde_pA.queue status := gfc$qs_global_shared; 
fde_ pA.attach_count :=: Off f(16) ; 
fde_pr.open_count := OF FFI 16); 


mmp$asti (sdt_entry.ste.asid, fde_p’.asti); 
sdt_entry.asti := fde_paA 


fde_p4.global_task_id 
fde_pA.global_task_id 
fde_pA.file_hash 0; 


asti; 
jmv$ jmtr_xcb.global_task_id; 


jmv$ jmtr_xcb.global_task_id; 


PROCEND mmp$create_ssr_sdtx; 


SOURCE LIST OF mmm$deadstart_initialization 


Tink page _to_segment_ds 


eoo0oo0o000ocaoooocoodcaoocooo0oocooeo0o0g0o00 


$673 


{ 
{ 
{ 
{ 


{ 


pages of a segment that are 


NOS/VE CYBIL/II 1.0 891062 


° 


integrity of the links will 


1989-08-21 


insert a page frame into the 
in memory. 


There must be NO OTHER CALLERS 


be destroyed. 


IF (pfte_pA.segment_link.fwd <> 0) AND (pfte_pA.segment_link.bkw <> ©) THEN 


Purpose: 
This procedure is called from mmp$pft_initialize to 
thread which links all 
of this procedure, or the 
PROCEDURE [INLINE] link _page_to_segment_ds 
{ pfti: mmt$page_frame_index; 
pfte_p: AmmtS$page_ frame _table_entry; 
aste_p: Ammt$active_segment_table_entry) ; 
Debug code 
osp$system_error (’LINK PAGE TO SEGMENT ERROR.’, 
IFEND; 
End debug code 


IF aste_ pA.pft_link. fwd 
aste_pA.pft_ link. fwd 
aste pA.pft_ Jink.bkw 

ELSE 


mmv$pft_pA [aste_pA.pft 
pfte pA.segment_link.bkw := aste_ pA.pft_l1ink. bkw; 


aste_pA.pft_link. bkw 
IFEND; 


Oo THEN 

pfti; 

pFti; 
_link.bkw]).segment_Tink. fwd 


pfti; 


PROCEND link_page_to_segment_ds; 


NIL); 


= 


pfti; 
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mmp$sdtx_initialization 


o 5703 
Oo 5704 PROCEDURE [XDCL] mmp$sdtx_initialization; 
o $5705 
o 5706 { 
° 5707 { The purpose of this request is to initialize the SDTX at system 
© 5708 { initialization time. 
o s709 { 
o s5710 { MMPSSDTX_INITIALIZATION (status) 
o 5711 { 
oO 5712 { STATUS (output) This parameter specifies the request status. 
o 5713 { 
© 5714 
Oo 5715 VAR 
o 5716 sdt_p: mmt$max_sdt_p, 
o 5717 sdtx_entry: mmt$segment_descriptor_extended, 
o 5718 sdtx_p: mmt$max_sdtx_p, 
Oo 5719 xcb_p: Aost$execution_control_ block, 
Oo 5720 segnum: ost$segment, 
oO 5721 tos_array_index: ost$ring, 
oO 5722 rb: mmt$rb_ring1_segment_request ; 
° 5723 
° 5724 
o 5725 { Set pointer to SDTX in XCB. 
° 5726 
Oo 5727 xcb_p : = Ajmv$ jmtr_xch; 
4 5728 xcb pA.sdt_offset :: #OFFSET (Ajmv$sadt); 
4 5729 xcb pA.sdtx_offset := #OFFSET (A jmv$sdtx) ; 
4 5730 
4 5731 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
4 5732 
4 5733 
4 5734 { Initialize the SDTX entry for each valid SDT entry. By default each segment is assumed 
4 5735 { to be pageable shared system template segments. Exceptions to this rule must be accounted for 
4 5736 { by specifically changing attributes later in this proc. 
4 $737 
4 5738 sdtx_entry := mmv$default_sdtx_ entry; 
64 §7393 sdtx_entry.inheritance := mmc$si_share_ segment ; 
64 5740 sdtx_entry.open_ validating ring number := 0; 
64 $741 
64 S742 FOR segnum := xcb_p4.xp.segment table length DOWNTO © DO 
7E 5743 IF sdt_p4A.st [segnum].ste.v1l <> osc$vi_invalid_entry THEN 
$2 5744 sdtx_p4.sdtx_table [segnum] := sdtx_entry; 
AC 5745 mmp$set_ segment _access rights (sdt_p’.st [segnum], sdtx_p4.sdtx_tabie [segnum]}; 
C4 5746 IFEND; 
ca S747 FOREND,; 
cc 5748 
cc 5749 { Set the page table to be read only. 
cc 5750 
cc 5751 sdtx_ pA.sdtx table [esc$segnum_page_table].access_rights >= mmce$sar_read; 
cc 5752 
cc 5753 
cc 5754 { Set software attributes for special segments. 
cc 5755 
cc 5756 sdtx_p4.sdtx_table [osc$segnum_page_table].software attribute set :: 
cc 065757 $mmt$software_ attribute set [mmc$sa_wired] ; 
cc §758 sdtx_ p%.sdtx_ table [#SEGMENT (#LOC (osv$mainframe_wired_heap’))].software attribute set :: 
SOURCE LIST OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 898102 1989-08-21 13:33:34 
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5759 
5760 
5761 

S762 
5763 
5764 
S765 
5766 
5767 
5768 
5769 

5770 
5771 

S772 
S773 
S774 
S775 
S776 
S777 
S778 
5779 
5780 
$781 

5782 
S783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5732 


{ 
{ 


{ 


$S$mmt$software_attribute_set [mmce$sa_wired] ; 

sdtx_ pA.sdtx_table [#SEGMENT (#LOC (osv$mainframe_wired_cb_heap4))]. 
software _ attribute set := Smmt$software_attribute_ set [mmc$sa_wired] ; 

sdtx_ pA.sdtx_table [#SEGMENT (#LOC (nav$network wired heap’))].software_attribute set := 
$S$mmt$software attribute set [mmc$sa_wired] ; 

sdtx_pA.sdtx_ table [osc$segnum_job_fixed_ heap] .software_attribute set := 
$Smmt$software_attribute_set [mmc$sa_fixed] ; 


sdtx_pA.sdtx table [Losc$segnum_job_fixed heap] .open_validating ring number := 1; 


The file server wired heap is shared with the network wired heap. 
The file server is the ending portion of this hneap. 


dfv$server_wired heap := #ADDRESS (#RING (nav$network_wired_ heap), #SEGMENT (nav$network wired heap), 
nac$network heap_size); 
osp$reset_heap (dfv$server_ wired heap, 3ffffFFFF(16) - nacS$network heap size, TRUE, 2); 


osp$reset_heap (nav$network_wired heap, nac$network_heap_size, TRUE, nac$heap_algorithm) ; 
osp$reset_heap (nav$network_ paged heap, nac$network_heap_size, TRUE, nac$heap_algorithm) ; 


For ring 1, 2, and 3 stack segments, set software attributes. 


FOR tos_array_index := 1 TO 3 DO 
segnum := xcb_pA.xp.tos_registers [tos _array_index] .pva.seg; 
IF sdt_p4.st [segnum].ste.v1 <> osc$vl_invalid entry THEN 
sdtx_p4.sdtx_table [segnum].software_attribute_ set := $mmt$software_attribute set [mmc$sa_stack] ; 
sdtx_pA.sdtx_ table [segnum].open_validating ring number := 1; 
sdtx_ pA.sdtx_ table [segnum].inheritance := mmc$si_new_segment; 
IFEND; 
FOREND; 


PROCEND mmp$sdtx_initialization; 
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MMPSCOMMIT_MEMORY 


oO 5795 
o 5796 PROCEDURE [XDCL] mmp$commit_memory ; 
o 5797 
Oo 5798 VAR 
o 5799 rb: mmt$rb_ring1_segment_request ; 
© 5800 
o 5801 { 
© §8o2 { This procedure is called immediately after closing 
© 5803 {and detaching the image file. It initializes the request 
© 5804 {biock and makes the call to monitor. In monitor, the page table 
° 5805 {is scanned from the deadstart upper bound to the upperbound, and 
is) 5806 {page frame table entries are linked onto the free page queue. 
oO 85807 
© 5808 
© 5809 rb.reqcode := syc$rc_ring1_segment_request ; 
4 5810 rb.request = mmc$sri_commit_memory ; 
4 5811 
4 §812 mmp$issue_ring!_ segment_request (rb); 
26 5813 
26 5814 PROCEND mmp$commit_memory ; 
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MMPSFREE IMAGE PAGES 


°o 


AOPAHODOODCCODOCOOOD 


NN 


5817 
5818 
5819 
5820 
5821 
5822 
$823 
$824 
5825 
5826 
$827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 


PROCEDURE [XDCL] mmp$free_image_ pages; 


VAR 
rb: mmt$rb_ring!_segment_request ; 


{ 

{ This procedure is called prior to ciosing and detaching the 
{image file. It initializes the request block and makes a call to 
{monitor . From monitor, a procedure is called which scans the 
fentire page table. Valid page table entries greater than the 
{deadstart upper bound are deleted. 


rb.reqcode 
rb.request 


= syc$rc_ring1_segment_ request ; 
= mmc$sri_free_image_pages; 


mmp$issue_ring! segment_request (rb); 


PROCEND mmp$free_image_pages; 


1889-08-21 


1989-08-21 
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MMPSDEFINE IMAGE FILE 


**** 12$05578173AS0102D19890821T183254 


OPP PHP HHP PHP HADDAD AAHHADAARODO 


$8358 
S840 
5841 
5842 
5843 
5844 
S845 
5846 
5847 
5848 
58ag 
5850 
5851 
$852 
5853 
5854 
5855 
5856 
5857 
5858 
5859 
5860 
5861 


ERROR LIST OF 


PROCEDURE [XDCL] mmp$define_image_file 


( 


SFID: 


ey etey ty ping py pny pty gine py py iy 


LENGTH: 


sfid: 
length: 


This procedure 
attached and opened. 


Parameters: 
(dmt$system_file_id) This 


This 


file 


dmt$system file 


id; 


oO .. offfrrefT(16)); 


It 


is the 


segment. 


mmv$image file.active 
mmv$image file.sfid :+ 


mmvS$image_file.file_ offset := 


length of the 
preceding the actual memory 


>= TRUE; 
sfid; 
length; 


PROCEND mmp$define_image_file; 
MODEND mmm$deadstart_initialization; 


mmm$deadstart_ initialization 


MMPSDEFINE IMAGE FILE 


WARNING 
WARNING 
WARNING 
WARNING 
WARNING 
WARNING 
WARNING 
WARNING 

WARNING 


LEVEL SUMMARY 


ReEX 


3 


LINE 
$263 
5266 
§273 
5291 
§319 
5435 
5499 
5503 
5575 


TEXT 
Code 
Code 


scheduling 
scheduling 


#SIZE returning 


Code 
Code 
Code 
Code 
Code 


scheduling 
scheduling 
scheduling 
scheduling 
scheduling 


#SIZE returning 


warning diagnostics 


L=ZZXXLIST B=LGO 


abandoned for this 
abandoned for this 
rounded bit size. 

abandoned for this 
abandoned for this 
abandoned for this 
abandoned for this 
abandoned for this 
rounded bit size. 


NOS/VE CYBIL/II 


information 


is the system file 


is called during deadstart when the 
initializes the fields 


1.9 8931902 


image file 


image 


DA=NONE 


NOS/VE CYBIL/II 1.0 


block 
biock 


block 
bliock 
block 
biock 
biock 


LO 


89102 


due 
due 


due 
due 
due 
due 
due 


to 
to 


to 
to 
to 
to 
to 


id of the 


in mmv$image_file. 


immediately 
image on the 


R RC=NONE 


register 
register 


register 
register 
register 
register 
register 


is 


image file. 


jamming. 
jamming. 


jamming. 
jamming. 
jamming. 
jamming. 
jamming. 


OPT=SCHED 


1989-08-21 


EL 


F 


LF=CS612 


1989-08-21 
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MMPSDEFINE IMAGE FILE 

IDENTIFIER: e+e ee ete eer er een ee DEFINED: +--+ eee 2 -re ree REFERENCES 

ON LINE 

access rights 2490 5751/M 

active 4801 5856/M 

age 1094 5495/M $527 §535 

amc$file_ byte _ limit 4280 4283 4285 

amt$file_ byte_address 4283 4244 4625 

amt$file_ limit 4285 4248 

asid 838 5327 5330/M 5411 

asid 863 5S466/M 

asiad 1067 5555/P 

asid 2468 5304 $312 $358 5594/M S664/P 

asid 4984 4989/M 4992/Ss 4993/M 4993 

asid 5000 5006/M 5008/M 5008 5008 

asid 5170 5360/M 5360/58 5360/M 5360 5431/M 5431/5 5431/M 5431 

asid 5170 5555/M 5555/M 5555 5555 

asid 5174 5358/M 5360/P 5425 5425 5449/M 

asid 5182 5327/M 5328 $328 5328 5411/M 5412 5422 5425 
$425 5431/P 5440 5449 5459 S466 $481 5483 

asid 5646 S664/M 5664/S 5S664/M 5664 

asidt 5183 §323/M 5328 

asid2 5184 5$324/M §328 

asid3 5185 5325/M 5328 

asid_seq_ p 5186 5300/P 5301 5302 

asid_ size 5187 5299/M 5300/P 

asidg 5188 5346 5425 5425 5430 5455 

asidq p 5189 5346/M 5358/M 5359/M 5360/P 5364/M 5365 S366/M 5372/P 
5372/P 5373 5377/M 5377 5378/M 5380/M 5$383/P 5384/P 
5390/M 5391/M 5395/M 5397/M 5430/M 5433/M 5434 5435/P 
5435/P 5436/M 5437/M 5438/M 5433/M 5441/M 5446/M 5447/M 
5449/M 5450/M 5451/M 5455/M 5456 5457 5458 5460 

asidq_type 5173 5188 5189 

assign_active 2495 5375/M 

assign_fde 5615 5047 S372 5435 5601 5640 

aste_p 1095 5494/M 5502 5533/M 5544/M 

‘aste_p 5170 §503 5503/M 5503/M 5503/S S503 5503/M 

aste_p 5177 5364/M S365 5366/M 5372/P 5373 5377/M 5378/M 5384/P 
5390/M 5433/M 5434 5435/P 5437/™M 5438/M 54339/M 5441/M 

: 5446/M S456 

aste_p 5190 5456/M S477 5478/™M 5478 5494 5503/P 5504 

aste_p 5681 5691 S5692/M 56933/M 5695/S S696 5697/M 

asti 2437 5361/M 5665/m 

asti 4243 5633/M 5664/P S665 

asti 4986 4990/M 4992/M 43932 43995 

asti 5003 5005/M 5006/S 5006/S 5006/S 5007/S 

asti 5170 5360/M 5360/M 5360 5360 5431/M 5431/M 5431 5431 

asti $170 5555/M 5555/s 5555/S 5555/S §555/S 

asti 51391 5360/P 5361 5363 5§364/S §372/P 5431/P 5432 5433/S 
5435/P 

asti 5617 5633 

asti S646 5664/M S664/M 5664 5664 

attach_count 4238 5626/M 5630/M 5661/M 

“pits 4378 4992 50065 5006 SOO6 5007 5360 5431 5555 

** x REFERENCE ABBREVIATIONS Mzemodify, Azattribute, S=subscript, I1:21/0 ref, Reread, Wewrite, P=parameter 
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MMPSDEFINE IMAGE FILE 
TDENTIFIER----- eee re etre rere ee DEF INED< 253-206 Ses sie eee REFERENCES 
ON LINE 
5555 5555 5555 5664 
okw 1036 $503 5503/M 5503/S 5503/M 5503 5503/M 5510/M 5514 
5515/M 5531/M 55338/M 5547/M 5685 5693/M 5695/5 5696/M 
S696 5697/M 
block _index 521 4459/S 5311/S 
fo leck_ number 520 4453/S §311/S 
biock_p 1825 4459 5311 
boot _ asids §132 5318 5323 5324 §325 
boot _asids_seq_p 5193 5318/M 5319/P 
byte _p 2252 §142 
c 844 5129/M 5566/M 
c1790 1619 1611 
cbc _seq_p 5194 5263/P 5264 5265 
cmt$element_name 3687 3630 
code_data 3528 §323 
count 1015 5513/M 5513 5542/™M $542 5562 
count 5195 5468 5469 
current 2225 5304/M 
‘deadstart upper 4908 5520 
default 2247 5140/M 5142/M 
dfc$command_record_ bytes 186 194 
_dfcS$division_overwr ite_words 173 201 
dfc$esm_command_record_size 194 202 
dfc$esm_header_record_ size 195 202 
dafcS$esm_maintenance_buf_size 174 205 
dfc$esm_memory_base_ shift 180 202 203 203 
dfc$header_record_ bytes 185 195 
dfc$max_esm_memory size 175 204 
dfc$max_number_of_ mainframes 182 167 
dfcSmin_data_record bytes 190 201 
dfc$min_esm_division_size 200 204 
aftSmainframe_set 167 117 118 276 277 
dfv$server_wired_heap 4921 5$773/M 5775/P 
dmt$system_file_id 216 149 4607 4611 4612 4620 4624 4802 5841 
dpc$console_row_size 3693 3612 
dsc$boot_asids 3522 5319/P 
dsc$dftb_mr_number_of_ registers 3903 4109 4iti 
dsc$ssr_pages_to_dump 38598 5576/P 
dsc$ssr_sds_mumber_of_disk_errs 3552 3623 3624 3625 
dsc$ssr_sds_number_of_mf_errors 3553 3651 3652 
dsc$ssr_sds_number_of_nos_id 3554 3671 
dsp$allocate continuous memory 3471 5251 $259 §263 5300 
dsp$convert_ seq _ p_to_r_ pointer 3479 3498 5575 
dsp$fetch_ boot data 3513 $319 
dsp$store_data_in_ssr 3535 5576 
dst$boot_asids 3527 5192 
dst$boot data_kinds 3520 3514 
dst$dftb_controi word 3991 3588 
dstS$dftb_ cw_dft_pp_ number 3964 3996 
dstS$dftb_cw_pointer words 3965 3933 
*** REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I21/0 ref, Reread, W-zwrite, P=parameter 


REFERENCES OF 


MMPSDEFINE_ IMAGE FILE 


IDENTIFIER------------------- 


dst$dftb_ cw_revision_level 
dst$dftb_date_and_time 
dst$dftb_date_and_time_data 
dst$dftb_ date _and_time_fieid 
dst$dftb_dft_analysis_code 
ast$dftb_element_size 


dst$dftb_error_buffer_ flags 
ast$dftb_ fault _symptom_code 
dast$dftb_ mdb_data_header_id 
dst$dftb_ mdb mrb_ word index 
dst$dftb mdb pfs _error_id 
dst$dftb _mec_error_element 
dst$dftb_mec_threshold 
dst$dftb_mr_header_entry 
dast$dftb_mr_register_hneader 
dst$dftb_mr_register_list 
dst$dftb_mrb_ offset 
dst$dftb_mrt_element_index 
dst$dftb_os_act ion_code 
ast$dftb_priority 
dast$dftb_secded_address 
dst$dftb_secded_ count 
dst$dftb_secded_ syndrome 
dadstS$dftb_ sequence number 
dast$dftb_ssb_mdb_ordina} 
dst$dftb_ssb_unlogged 
ast$dftb_ stat_buffer_type 
dst$dftb_ structure _length 
dadst$r_pointer 
dst$ssr_bmb_r_register 
dst$ssr_entry_name 
dst$ssr_sds_disk_error_entry 
dst$ssr_sds_disk_errors 
dst$ssr 
dst$ssr_sds_general_info 
dst$ssr_sds_mainframe_errors 
dst$ssr_sds_mf_error_data 
dst$ssr_sds_mf_error_entry 


1 


dst$ssr_sds_nos_nbe_words 
dst$ssr_sds_timestamp 
dsv$ssr_size 


eoi_ byte address 


* ee 


REFERENCES OF 


MMPSDEFINE IMAGE FILE 


IDENTIFIER------------------- 


file _entry_index 
file nash 

File hash 

file kind 

File limit 
file _ offset 
first _image_pfti 


fwd_ link 


gfc$fde_ size 

gfc$fde table base 

gfc$fk_ catalog 
gfc$fk_job_local_ file 
gfcS$fk_monitor_only_unnamed 
gfc$fk_unnamed_file 
gfc$fm_mass_storage_ file 
gofcS$fm_served file 
gfc$qs_global_shared 
gfc$tr_job 

gfc$tr_null_ residence 
gfc$tr_ system 
gfpS$assign_fde 
ofp$get_fde_p 
gft$allocation_unit_size 
gftSattach_ count 
gft$fde_fiags 
gft$file_desc_entry_p 
gftS$file_ descriptor_entry 
gft$file_descriptor_index 
gft$file_kind 

agftS$file_ media 
gft$locked_ file _desc_entry_p 
gftS$open_count 
gftS$queue_status 
gft$segment_lock_info 
gftS$signature_lock 
gftS$system_file_identifier 


gft$table_ residence 
gft$transfer_ unit_size 
gfv$null_sfid 

gliobal _task_id 


* xx 


mmm$deadstart_initialization 


sds_ds_per formed code 


mmm$deadstart initialization 


NOS/VE CYBIL/II 1.0 89102 
DEFINED<---- +2 ee eee eee REFERENCES 
ON LINE 

39366 3995 4169 4178 

4o34 3661 

4039 4035 4173 

4041 3677 

3967 4022 41890 

32868 4030 4031 4126 
4162 4163 4164 
4177 4185 

4055 4024 

4070 3664 4077 

3369 4133 

3370 4122 

3971 4132 

3973 4089 40390 4091 

39372 4087 4088 

4104 4110 

41093 4114 

4111 4115 

3974 4025 

3975 3662 4019 

3976 4020 

3377 4021 4123 

3973 40398 

39378 40937 

3980 4093S 

3981 3994 4023 4124 

39382 4143 

39383 4142 

3984 4187 

3985 3997 39398 4133 

3502 3481 4080 5208 

32574 3580 3581 

3605 3536 3532 

3628 3625 

3622 3615 

3634 3641 

3640 3614 

3650 3616 

3655 3652 

3660 3657 

3667 3617 

3674 3629 3647 

4700 5257 

4244 5499 5500/M 

4419 4434/M 6435 4436/M 

46323 4639 4640 

5018 5050/M 5050 5050/M 

5025 5047/P 5050/P 5051/M 

5170 5384 5384 

5178 5372/P 5380/M §383/P 

Memodify, Azattribute, 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 1.0 881062 
DEFINED---- ere eee ene ne REFERENCES 
ON LINE 
5196 S460/M 5499 5499 
5620 5622/P 5624/M 5625/M 
5633/M 5634/M 5635/M 
5651 5658/P 5659/M 5660/M 
5667/M 5668/M 
19 4434 5050 
21 4435 5050 5638/M 
4241 4435 5050 5637/M 
4240 5436/M 5624/M 5659/M 
4248 5602/M 
4803 5858/M 
5197 5520/M 5526 
4234 4640 5051/M 5384 
5198 5468 
1037 5498/M 5498 5503 
5530/M 5540/M 5540 
S6S5/M 
5189 5508/M 55093 §510/S 
4451 4434 5050 
4449 4434 4450 5050 
4317 43293 
43193 4328 
4322 S436 5689 
4320 $624 
4332 4257 
4333 4260 
4361 5629 S660 
32 4428 5047/P 5050 
32 5046 
32 4427 5050 5368 
4214 5622 5658 
4418 4439 5050 
4291 4246 
4236 4237 4238 
4266 8234 
4223 4218 4413 5025 
4231 4223 4236 4655 
23 19 
4313 4240 4325 
4332 4256 
4655 4633 
4350 4239 4366 
4361 4249 
4365 4242 
4338 4232 
18 14 216 1070 
4468 5619 5652 
32 20 4215 5221 
4302 4247 
14 5073/P 
2698 5635 5636 5666 
REFERENCE ABBREVIATIONS Memodify, Azattribute, 


4130 
4165 


4181 


4140 


5391/M 


S=subscript, 


5500/M 
5626/M 
S636/M 
5661/M 


5668/M 


5628/M 


5503 
5S41/M 


5370 


5435/P 


$178 


2486 


5616 


5667 


S=ssubscript, 


4141 
4166 


4151 


5435/P 


1=1/0 


5601/P 
5628/M 
5637/M 
5662/M 


5503/M 
5546/M 


S601/P 


5196 


2578 


I=1/0 


1889-08-21 


4144 
4167 


4152 


5436 


ref, 


1989-0 


5602 
5629 


S664 


S503 
5685 


5623 


5620 


2737 


ref, 


13:33:34 PAGE 347 
4153 4161 
4168 4176 
/™ 5447/M 5460 
Reread, Wewrite, P2parameter 
8-21 13:33:34 PAGE 348 
/™ 5603/M 
/M 5630/M 5631/M 
7P 5665 S5666/M 
7M 5508 §512/M 
5691 5692/M 
5658/P 
S651 
4217 4418 
Reread, Wewrite, P:parameter 


REFERENCES OF mmm$deadstart_initialization 


MMPS$SDEFINE_IMAGE FILE 


. Jmt$job_class 


*¥** REFERENCE ABBREVIATIONS 


TDENTIFIER---- ere ee ee ee eee eee DEFINED 

ON LINE 

jmc$max_ajl_ord 223 

jmc$max_ dispatching control] 403 

- jmc$max_dispatching priority 325 
jmc$max_ijil_index_count 523 

jmc$maximum_job_ciasses 625 

jmc$maximum_job_count 244 

“jmc$maximum_output_count 254 
jmc$maximum_service_ classes 728 

jimc$min_dispatching control 402 

_ jmc$null_ service class 721 
jimc$priority_aging_interval_max 2796 

jimc$priority_p1 339 

imc$priority_p10o 348 

imec$priority_p14 352 

jmc$priority_p8 346 

jme$required offset 710 

: jmc$reserved_ajis 233 
jmc$service_ accumulator maximum 687 

imc$service_factor_value_max 2822 

jimc$system_default_ offset 711 

- jmc$system_supplied name_size 352 
imc$unlimited_offset 708 

imeSunspecified_ offset 709 

jmc$working set _size_ maximum 1953 

jmp$get_ijle_p 4455 

jimt$ajl_ordinal 222 

jmt$delayed_swapin_work 269 

jmt$detached_job_wait_t ime 1913 

jmt$dispatching control 373 

imtSdispatching control index 406 

‘imt$dispatching_ controls 376 
jmt$dispatching priority 285 

jmt$iji_block_index 525 

jimt$iji_block_number 524 

“jmtSijl_ dispatching _ contro! 362 
jmt$ijl_entry status 448 

imt$iji_ordinal 519 

jimt$ijl_p 1824 

jimt$ijl_page_fault count S44 

imt$ijl_page stats 538 

imt$iji_service_ class stats 532 

imtS$ijl_statistics 577 

imt$ijl_swap_count 553 

imt$ijl_uswap_counts 548 

‘-jmt$ijl_swap_status 466 
jmt$S$initiated_job_lTist_block 1835 
‘jmt$initiated_job_list_entry 82 
‘jmt$initiated_job_list_p 1841 
imt$input_ file location 667 

imt$ job_abort disposition 676 

628 


were eee eee REFERENCES 


222 
407 
285 
1836 
628 


NOS/VE CYBIL/TII 


M=emodify, 


REFERENCES OF wmmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 
MMPSDEFINE_IMAGE FILE 
“TDENTIFIERs=s sss 22-85 56 eee ees DEFINED------+-- cre - eae REFERENCES 
GN LINE 
global _task_id &253 5635/M 5636/M 
‘global_template_file 4270 4640 5051/M 
gpql 2261 5146/M 
i 4385 4991 
i 5107 5112/M §113 
i 5170 5360 5431 
i 5200 5243/M 5244 
5348/S 5350/S 
5379/S 5380/S 
5555/S 
i S646 S664 
i#real_memory address 3509 3432 5575 
iji_ordinal 1063 5378/M 5439/M 
ijl_ordinal 1088 5496/M 
ijl_ordinal 44s5 4459/S 4459/S 
ijl_ordinal 5170 §311/S 5311/S 
ijle_p 4456 44s3/M 
ijle_p 5170 5311/M 
‘ijle_p 5201 5311/P 5312/M 
in_use 1064 5365 5366/M 
include _pages_in_dump 1071 5384/P 5441/M 
_include_pages_in_dump 4635 4642/™M 4644/M 
include pages _in_dump 5170 5384/M 5384/M 
index ma 5108 §137 §138/S 
index _p 1838 4459 §311 
“inheritance 2487 5600/M S656/M 
integer _p 2250 5140 
ieot$io_ error 1053 150 1036 
iot$transfer_count 2875 2863 
ipti 5202 5468 5470/M 
| 5203 5423/M $425 
. 5430/S 5455/s 
jimc$detached_ job_wait_t ime_max 1916 1913 
jmc$nighest_det_job_wait_time 1926 1916 1927 
jimc$highest_prio_age_interval 2805 2796 2806 
jmc$highest_ service _accumulator 635 696 
jmc$highest_service_factor_valu 2829 2822 
jmc$highest working set_size 1962 1953 1963 
jmc$ies_job_swapped 453 462 
jimc$ies_ swapin_in_progress 452 461 
jmc$iss_idie_tasks_ initiated 468 495 
jmc$iss_swapin_io_complete 493 436 
jmc$iss_swapin_requested 483 4s6 
jmc$iss_swapout_complete 488 435 
imc$iss_swapped_io_cannot_init 479 506 
~ gmc$iss_ swapped_no_io 470 505 
jimc$keyword offset_maximum 712 1954 2797 
jmc$k jl1_maximum_entries 237 230 231 
_jmc$kol_maximum_entries 247 232 
jmc$max_active_jobs 228 2778 2786 
ex REFERENCE ABBREVIATIONS M=modify, 


1.0 89102 


228 


288 


1870 


1917 


S311 


273 


373 


364 


1838 
1826 


133 


540 


5666/M 
5384 


5114/M 
5245/M 


5352/Ss 
5383/P 


5397 
5434 
5504 
4647/M 
5384/M 
5140/S 


5739/M 


5470 


5425/s 


19365 


647 


2787 


Arzrattribute, 


289 


1928 


365 


1827 


967 


541 


$o 


1887 


Aztattribute, 


5667/M 

5628/M ‘ 

§114 5115 
5250 5253 


5358/S 5361/S 
5383/S 5469 


$437/M 5554 


5140/S 5142/Ss 
5787/M 

$471 S$472/™M 
5425 5425/S 
1967 1869 


1989-08-21 13:33:34 
5266 5341 $34 
5372/P 5373/S 537 
5553 5554/s 555 
5142/Ss 


5474/S 5474/S 


5426/M $426 542 


Szsubscript, I:=I1/0O ref, R=read, W-ewrite, 


1964 2807 
366 378 
$68 1063 
4456 §201 


S=tsubscript, I=1/0 


1989-08-21 13:33:34 
2709 2711 
1088 1848 188 


ref, Reread, Wewrite, 


PAGE 349 


2/s 
5/S 
5/P 


P=parameter 


PAGE 350 


8 


P=parameter 


REFERENCES OF mmm$deadstart_in 


MMPGSDEFINE IMAGE FILE 


IDENTIFIER c+ e254 sees oS 6S as ee Se DEFINED------- Se ee -REFERENCES 
ON LINE 
lower 4907 5120/M 
ma 2262 §137 
mf wired asid_p 5207 5302 
mic$c18o 1619 1613 
mic$error 1202 1204 
1268 
1333 
1401 
mic$fetch link _partner_info_req 1505 1509 
mic$max_ant_entries 1574 1620 
mic$max_message_length 1190 1463 
mic$max_ permits 1192 1617 
mic$max queued messages 1196 1462 
mic$max_ signons_per_job 1573 1595 
mic$max_ signons_per_system_name 1195 1630 
mic$max sn_entry 1571 1621 
mic$nosve_not_up 1310 1493 
mic$ok 1318 1493 
mic$sign_on_req 1497 1508 
mic$unique_name 1193 1194 
mit$ant_ entry 1577 1650 
mitS$ant_ index 1620 1581 
mitSapplicat ion_name 1460 1486 
mit$arbitrary info 1461 1624 
mit$c170_¢c180_ flag 1619 1610 
mit$direct ion 1479 1483 
mit$handler 1489 1592 
mit$int receive list 1641 1586 
mit$int receive _list_entry 1622 1627 
mit$max messages 1462 1585 
mit$message_ length 1463 1626 
mit$operation 1508 1593 
mit$permit_list 1643 1587 
mit$permit_list_entry 1638 1643 
mit$receive_ entry 1468 1467 
mit$shared_ segment 1644 4961 
mit$signal 1477 1491 
mit$signal_record 1480 1477 
mitSsignaler_application_info 1485 1490 
mit$system_name 1608 1588 
miv$shared_ segment 4961 5284/8 
mmc$assign_active_escaped 2527 5375 
mmc$assign_ active null 2526 2527 
mmc$cell_ pointer 2174 2179 
mmc$first_ loader predefined seg 2268 2270 
mmcS$first_transient_ segment 2270 4958 
mmc$heap_pointer 2175 2183 
mmc$kw_asid 2100 2136 
mmc$kw_ clear space 2098 2123 
mmc$kw_ current _segment_ length 2097 2117 
mmc$kw_error exit procedure 2099 2127 


KX 


itialization 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


> “Mtmodify, 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 
MMPSDEFINE_IMAGE_ FILE 
IDENTIFIER--~----~--- eee ece see 2 DER TNE D:s:s -< 5 Ses 9 2 Se isc -REFERENCES 
ON LINE 

jmt$job_control_ block 1869 1855 
jmt$ job mode 631 101 
jmt$job_ priority 636 141 142 2770 
jmt$job_recovery disposition 679 661 
jmt$job_system_id 1932 1884 
jmt$kj1_ index 647 87 1932 
jmtS$maximum_active_jobs 2778 2755 
jmtSpriority_aging_interval 27933 2763 
imt$queue_ file ijil_information 659 126 
jmt$scheduling data 132 110 
jmt$scheduling priority 2769 2762 
imt$service_accumulator 684 134 135 136 
jmt$service_class_index 731 145 2746 2756 
jimt$service class_name 2811 2748 2749 
jmtS$service_factor_ value 2819 2757 
imt$service factors 2815 2757 
jmt$swap_data 148 112 
jmt$swapout reasons 734 140 
jmt$swapped_job_entry 749 43 157 1907 
jmtSsystem_supplied_name 949 83 1628 1882 
jmt$task_time_slice 416 396 3937 
jmt$time_slice_ values 395 380 2722 
jmt$user_supplied_name 1936 1883 
jmt$working set _size 1950 1894 1885 
imv$iji_p 1819 4459 §311 
jmv$jmtr_xcb 4723 5034 5279/P $341 
jmv$sat 4707 5728 
jmv$sdt x 4717 5729 
imv$system_ijl_ordinal 1848 5311/P 5378 5439 
job_fixed_asid 95 5312/M 
job_page queue _ list 111 53397 
job_stack 3529 $324 
jscS$isqi_swapped_io_completed 372 974 
jisc$isqi_swapped_io_not_init 971 974 
jst$changed_asid_entry 65 56 
jst$iji_swap_queue_id $71 S66 
jst$ijl_swap_queue_link S65 94 
jstSio_control information $798 113 
jst$swap_file descriptor 41 114 
jst$swapped_page_descr iptor 50 48 5571 
jist$swapped_page_ descriptors 47 44 
isv$swapped_ page_entry_size 4730 5571/M 
last_asid 5204 5403/M 5422 5459/M 
last link op 5206 5522/M 5538/M 5539/M 
last segment _number 4252 5603/M 5634/M 
length 3506 3496/M 5575/M 
length 5842 5858 
Tink 1014 5498 §508 5512/M 
Tink 1085 5498/M 5510/M 5530/M 
Tink page _to_ segment _ds 5678 5503 5700 
locked page 1091 5497/M 

** x REFERENCE ABBREVIATIONS Memodify, Azattribute, 


1.6 89102 


5120 5235 
$137 5138 
5303 
1211 1219 
1277 1285S 
1341 1349 
1411 1418 
1650 
1643 
1464 1465 
1648 
1582 1583 
1489 1580 
1635 
1642 
4638 5384 


Azsattribute, 


2771 


2753 


5635 


S496 


5540/M 


5514 
5531/M 


S=subscript, 


§243 
5140/M 
1230 
1294 


1358 
1426 


1466 


1584 
1623 


S=ssubscript, 


1989-08-21 13:33:34 PAGE 351 

2772 2773 

2754 

5636 5666 5667 5727 

5515/M 5522 5540 5541/M 

5539 . 

I=1/O0 ref, Reread, Wewrite, Ptparameter 

1989-08-21 13:33:34 PAGE 352 

5140 5142/M 5142 

1238 1246 1253 1261 

1302 1310 1318 1324 

1366 1373 1383 1333 

1435 1439 

1641 

1648 1649 

1633 1634 1639 


Iel1/O ref, 


R=read, Wewrite, Ptparameter 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 353 


MMP$DEFINE_IMAGE_FILE 


EDENTIFIER= = =e 9 eee ee ee ee “DEFINED----- creme ere ene REFERENCES 

ON LINE 
mmc$kw_g1_key 2099 2121 
mmc$kw_hardware_attributes 2101 2130 
mmc$kw_inher itance 2101 2138 
mmc$kw_max_segment_length 2098 2119 
mmc$kw_preset_value 2100 2125 
mmc$kw_ps_ transfer_size 2102 2146 
mmc$kw_ring numbers 2096 2112 
mmcSkw_segment_access control 2100 2134 
mmc$kw_segment_number 2087 2115 
mmc$kw_shadow_segment 2102 2140 
mmc$kw_software_attributes 2093 2132 
mmc$kw_wired_ segment 2102 2143 
mmc$ip_not_ locked 1107 5497 
mmc$num_loader_predefined_segs 2269 2270 
mmc$pq_avail 766 812 
mmc$pq_ free 765 824 5521/Ss 5532 5543 
mmc$pq_job_base 813 5367 5394 
mmc$pq_job_fixed 806 813 825 5351 
mmc$pq_job_working_ set 808 825 826 5355 $374 
‘mmc$pq_ shared first_site 816 820 
mmc$pq_ shared num_sites 817 820 
mmc$pq_ shared other 775 815 
mmc$pq_ shared site_01 777 816 
mmc$pq_shared_site_25 801 821 
mmc$pq_shared task_service 770 814 5353 S374 
mmc$pq_ swapped_io_error 804 824 
“mmc$pq_ wired : 768 811 53493 5438 5450/S 5451 
mmc$sa_fixed 2161 5350 5765 
‘ymc$sa_ stack 2162 52379 5785 
‘amc$sa_wired 2161 5348 5598 S655 S757 $759 S761 S763 
mmc$sar_read 2554 5751 
mmc$segment_fault_ processor_id 3173 3227 
mmc$sequence_pointer 2174 2181 
‘mmc$si_new_segment 2193 5787 
mmce$si_none 2192 5656 
mmc$si_share_segment 2192 5600 5739 
mmc$sri1_change_swap_file_queue 4597 4604 
mmc$sri_commit_ memory 4589 5810 
mmc$sri_ delete _job_seg_ by _sfid 4599 4605 
mmc$sri_delete_seg_segnum 4586 4608 
mmc$sri1_ delete _seg sfid 4587 4603 
mmc$sri1_detach_file 4590 4603 
mme$sri_end_job_recovery 4594 4614 
mmc$sri_flush_avail_modified 4601 4606 
mmc$sri_flush_delete_seg sfid 4591 4603 
mmc$sri_flush_seg_ segnum 45392 4604 5067 
mmc$sri1_free_image_pages 4588 5832 
“mmce$sri_get_hignhest_offset 4s38 4623 
mmc$sri_make_mfw_cache 4595 4617 5288 
mmc$sri_ remove, detached pages 4600 4605 
mmc$sri_remove_job_shared_pages 4596 4619 
mmc$sri_ replace _sfid 4593 4610 


xx * REFERENCE ABBREVIATIONS : Memodify, Aztattribute, S:subscript, 11/0 ref, R=read, Wewrite, P=parameter 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 354 


MMPSDEFINE IMAGE FILE 


IDENTIFIER----- SORES PLES See eel eee DEFINED------- ere ete eee REFERENCES 
ON LINE 

mmc$sr_ assign _file_to_ disk 2276 2287 

mmc$sr_ complete seg sft_entry 2278 2287 

mmcS$sr_ fetch cyclic_aging_int 2281 2295 
mmc$sr_fetch_max_ws_size 2277 22893 

mmc$sr fetch _ min_ws_size 2273 2291 

ramc$sr_ fetch page _aging_int 2280 22393 

mmc$sr_store_ cyclic_aging_int 2281 2295 
mmc$sr_store_max_ws_size 2277 2289 

mmc$sr_ store min_ws_size 22793 2291 

mmc$sr_ store page _aging_int 2280 2293 

mmc$ssk_none 2610 2582 
mmc$ssk_segment_number 2611 2580 
mmpSadd_giobal_template_ segment 5018 5053 

mmp$asid 4999 5010 5555 
mmp$assign_mass_ storage 4466 5073 

mmp$ast i 43980 4396 S360 5431 5664 
mmp$commit_memor y S796 5814 
mmp$convert_ps_transfer_size 4477 4502 5038 
mmp$create ssr_sdtx S646 5670 
mmp$define_image_file 5840 5860 
mmp$free_image_pages 5818 5836 
mmp$get_max_sdt_pointer 4521 4529 5070 

mmp$get max sdt_sdtx_pointer 4533 4543 5278 5731 
mmp$get sdt_entry p 4547 5039 
mmp$get_sdt_entry_p 4549 4551/M 5039/M 
mmp$get_sdtx entry _p 4559 5040 
mmp$get_sdtx_entry _p 4561 4563/M 5040/M 
mmp$initialize 5103 51523 

mmp$issue_ring1_ segment _request 4571 5076 §291 $812 5834 
mmp$pft_ initialize 5170 5608 

ommp$sdtx_ initialization 5704 5151 57931 
mmpSset_include pages_in_dump 4631 4650 5383 
mmp$set_segment_access_ rights 4658 5745 

mmp$write_all_ segments to_disk 5056 5082 

‘mmt$act ive _segment_table 1075 4810 

mmtSact ive _segment_table_entry 1060 53 1076 1095 5177 5190 5681 
mmtSast_ index 932 68 156 2437 4243 4613 4981 4sg9s 5003 
! 5191 5617 
mmtS$attribute keyword 2096 2111 

mmt$cont inue_bit_count 4825 4821 

mmt$eoi_state 4379 4245 
“‘mmt$global_page_queue_ index 824 1027 
mmt$global_page_queue_ list 1027 2244 4831 
mmt$global_page_queue_list_ent 1017 1027 

-mmt$hardware_ attribute _set 2165 2131 
mmt$hardware_attributes 2153 2165 

mmt$image_fitle 4739 4783 

tmmt$ job_page_ queue_index 825 751 1028 
/“mmt$ job page queue list 1028 111 

mmt $ Tink 1035 : 1014 1061 1085 1086 5206 
mmt$lock_segment_status 2590 24391 
~mmt$ locked page 1107 1091 


KEE REFERENCE ABBREVIATIONS : Mzmodify, Asattribute, S:subscript, I:1/0 ref, Reread, Wewrite, Ptparameter 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 1889-08-21 13:33:34 PAGE 355 

MMPSDEFINE_IMAGE_ FILE 

IDENTIFIERS s -s S ee es 6 eee oe eee DEF TNED <2 e's-= 5 cere e re “REFERENCES 

ON LINE 

mmt$mainframe_wired_asid 2224 2220 5207 5299 

mmt$manage memory _utility 2260 4841 

mmt $max_sdt 2447 24581 4707 

mmt $max_sdt_p 2451 4823 4535 5064 5223 5716 

mmt $max_sdtx 2515 2519 

mmt$max_sdtx_p 2519 4536 5224 5718 

mmt $memory _reserve_request $95 104 

mmt$mmu_gpqi_defauilt 2244 2261 

mmt$mmu_ma_data 2258 2262 

mmt$mmu_ma_info 2246 2258 

mmt$mmu_memory_ attributes 2239 2242 2243 2258 5108 

mmt$mmu_vatlue_types 2241 2248 

mmt$monitor segment request 2276 2286 

mmt$page_age 1114 1094 1118 1118 

mmt$page_frame_ index 988 $80 882 983 $84 397 998 1037 1037 
4748 4773 $212 5678 

mmt$page_frame_queue_id 826 981 1069 1088 5175 5219 

mmt$page_frame_tabie 1100 4862 

mmt$page_frame_table_entry 1084 51 1100 5209 5250 5680 

mmt$page_queue_list_entry 1013 1018 1028 5176 §218 

mmt$pfti_array 4769 4763 

mmt$rb_ringi_segment_request 4580 4572 5062 5220 5722 5799 5821 

mmt$reassignable_page_frames 4784 4781 

mmt$sdtx_ stream _data 2498 2494 

mmt$segment_access_ condition 3200 3228 

mmt$segment_access_ rights 2554 24390 

mmt$segment_access state 2560 2485 

mmt$segment_ descriptor 2434 2444 2448 4549 4634 4658 5019 5027 5226 
5227 5227 5647 

mmt$segment descriptor _extended 2483 2512 2516 4561 4564 4659 48793 5020 5028 
5040 5229 5648 S717 

mmt$segment_descriptor_table_ex 2511 4717 

mmt$segment_inheritance 2182 2139 2487 

mmt$segment_pointer_kind 2174 2178 

mmt$segment_reservation_state 2600 2488 

mmt $shadow_info 2575 2492 

mmt$shadow_reference_info 2832 2735 

mmt$shadow,_segment_kind 2610 2579 

mmt$software_ attribute set 2167 2133 2489 5598 S655 5757 57593 5761 5763 
5765 5785 

mmt$software_ attributes 2161 2167 

mmt$xcb_page_wait_info 2843 2721 

mmu_ boolean 2241 2253 

mmu_byte 2241 2251 5141 

mmu_ integer 2241 2249 5139 

mmv$a_divisor 4737 4989 5008 5008 5115/M 5116 5360 §$431 S555 
5555 5664 

mmv$a_muit 4738 4989 4389 5008 5116/M S360 5360 $431 5431 
5555 S664 5664 

mmv$ast_p 4810 5242 5271/P $271/P §363 5364 5432 $433 5554 
5555/P 

mmv$continue_ bit _count_p 4821 5265 5274/P 5274/P 5474/M 5474 S566 

xe x REFERENCE ABBREVIATIONS Memodify, Aztattribute, Stsubscript, I:I/0 ref, R=read, Wewrite, P*parameter 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 356 

MMPSDEFINE IMAGE FILE 

IDENTIFIER----+-+--->+- Sp ee es eee DEFINED-------- errr re- “REFERENCES 

ON LINE 

mmv$default_sdtx_entry 4878 5596 5654 5738 

mmv$gpql 4831 5146 5395 5450 5521 

mmv$S$image_file 4793 5856/M 5857/M 5858/M 

mmv$manage memory utility 4841 5137 5137 5138 5140/M 5140 5142/M 5142 5146/M 

mmv$mf wired asid 2220 5303/M 5304/M 5305/M 

mmv$number_ free_astes 4733 5241/M 5385/M 5385 5443/M 5443 

mmv$pages_ per _new_page_ fault 4847 5582/M 5583 5584/M 

mmv$pages_to_dump_p 2233 5261 5273/P §273/P 5482 5484/M 5504/M 5506/M 5575/P 

mmv$pft_p 4862 $253 S$272/P 5272/P 5307 5308 5490 5503/M 5510/M 
5527 5530/M 5531/M §532/M 5533/M 5535 5539 5543/M 
SS544/M S5546/M 5547/M S695/M 

mmv$pfti_array op 4763 5266 5275/P 5275/P 

mmv$pt_length 4753 5113/M 5128 5263/P 5265 $326 5410 5472 5565 

mmv$pt_op 4869 5117/M 5129/M S322 5411 5415 S566/M 

mmv$reassignable_page_frames 4781 5562/M 

mmv$tables_ initialized 4744 SS77/M 

mmv$t ime_to_call_mem_mgr 4758 5563/M 

mmv$total page frames 4748 5303/M 

mtr_ stack 3530 5325 

mtt$monitor_inter lock 4386 4233 

mtv$mx_ segments 4889 §234 5235/M $237 5§238/M $241 $242 S553 

nac$heap_algor ithm 4337 5776/P 5777/P 

nac$network heap size 4938 S774 5775/P 5776/P 5$777/P 

nat$received_message_ descriptor 2859 2852 2861 

nat$received_message_ list 2851 2703 

nav$network paged heap 4946 5283/S 5777/P 

nav$network wired heap 4331 5762/S 5773 5773 $776/P 

new 2226 5305/M 

next _asidq index 5205 5338/M 5346/S 5399/M 5399 5425 $425 5429 5452/M 
$452 

nic$cc_connect_confirm 2891 2882 

nic$cc_connect_request 2890 2880 

nic$cc_expedited data 2896 2882 

nic$cc_max pdu_ kind 28398 2901 

nic$channel_connect ion_pdu 2914 2866 

nic$channelnet_pdu 2914 2868 

nit$cec_pdu_kind 2901 2879 

nit$cc_seq# or _connect_time 2878 2867 

nit$cc_ sequence _ number 2904 2883 

nit$device_identifier 2911 2862 

nit$S$pdu_type 2914 2865 

normal 1139 5031/M 5074 5080/M 

now 4785 5562/M 

offset 864 5467/M $499 5500 

offset 3503 3483/M 5575/M 

open_count 4239 5625/M 5631/M 5662/M 

open_validat ing ring number 2484 5352 5599/M 5740/M 5767/™M 5786/M 

osc$aging interval maximum 1974 1977 . 

osc$call_instruction 3087 3085 

osc$data_read 3086 3095 

xxx Msmodify, Aztattribute, S=ssubscript, I21/0 ref, R=read, Wewrite, P:parameter 


REFERENCE ABBREVIATIONS 


REFERENCES OF 


MMPSDEFINE_IMAGE_FILE 


IDENTIFIER@----- eee eee eee eee 


osc$free_ running clock maximum 


osc$invalid_ring 
osc$max_fauit_ contents 
osc$max_name_size 
osc$max_number_of_ processors 
osc$max_page_ frames 


osc$max_page_size 
osc$max_page_table_entries 
osc$max_ ring 
osc$max_segment_length 


osc$max_ status _condit ion_code 


osc$max_string size 
osc$max_tasks 
osc$maximum_offset 
osc$maximum_processor_id 
osc$maximum_processors 
osc$max imum_segment 
osc$min_page_size 
osc$min_ring 
osc$non_executable 
osc$non_writabie 
osc$pr_base_ constant 
osc$pr_page_size_mask 
osc$pr_page_tabie length 
osc$pr_segment_table_length 
-osc$read_uncontrolied 
osc$segment_for_hyperchannel 
osc$segnum_job_fixed_ heap 
Sasc$segnum_job_pageable_ heap 
osc$segnum_mainframe_paged 
osc$segnum_mainframe_ wired 
osc$segnum_ page _ table 
osc$task_time_slice_maximum 
osc$vl_cache_bypass 
osc$vl_invalid_entry 
osc$vi_regular_ segment 
‘osc$wr ite uncontrolled 
osp$fatal_ system_error 
osp$reset heap 
osp$system_error 

ost$aging interval 

ost$asid 


ost$binary unique_name 
ost$byte_ count 
ost$cp_time 
ostS$cp_time_value 
ost$cs_ lock 

ost$date_ time 
‘est$debug code 


xxx 


REFERENCES OF 


MMPS$DEFINE_IMAGE FILE 


IDENTIFIER---- rc ee ee eee ee eee 


ost$debug list 

ost$debug list_entry 
ost$debug mask 
ost$exchange_ package 
ostS$execute privilege 
ost$execut ion_control_ block 


ost$external_ code base_pointer 


ostS$family_ name 
ost$flags 
ostS$frame_descriptor 
ost$free running clock 


ost$global_task_id 


ost$heap 

ost$key_ lock 

‘ost$key_lock_ value 
ostS$keypoint_ class 
ost$keypoint mask 
.ostSminimum_save_area 
ost$monitor_condition 
ost$monitor conditions 
_ost$monitor_ fault 
ost$monitor_fault_contents 
ost $name 

ost$p_register 

ost$page_id 

“ost$page_size 

ost$page table 
,OSt$page table _entry 
‘oest$page table_index 
ost$paging_ statistics 
ost$processor_ id 
ost$processor_id_set 
ost$processor_model_number 
ost$processor_serial_number 
,Ost$pva 
ost$read_privilege 
ost$register_ number 
ostS$ring 
_ ost$ring1_termination_reason 
ost$segment 


“ost$segment_access control 
ost$segment_ descriptor 
ost$segment_length 
/ost$segment_offset 
ost$stack_ frame_save_area 


ost$status 


ee 


mmm$deadstart_ initialization 


DEFINED 
ON LINE 
438 
881 
3240 
1940 
4897 
831 


2073 
832 


REFERENCE ABBREVIATIONS 


mmm$deadstart_ initialization 


DEFINED 
ON LINE 
3082 
3073 
3032 
23942 
2204 
2687 


1748 
1987 
2999 
3050 

435 


1082 


1796 
910 
916 

3024 

3026 

3060 

2918 

2925 


REFERENCE ABBREVIATIONS : 


NOS/VE 


ew eu wz ew@eesoeseeeevwean 


NOS/VE CYBIL/II 


1.0 898102 
REFERENCES 
29393 
3082 
2992 
2688 
2198 2463 
2713 4522 
SO61 $719 
1671 1704 
1982 
29493 
3065 
106 107 
367 379 
100 129 
3124 3327 
1768 1803 
2122 2469 
913 3016 
2962 3026 
2965 
2954 3035 
2325 
2955 2959 
3166 
3230 
1936 1985 
239343 3061 
847 
2050 4915 
4869 5216 
52 851 
851 1092 
5793 2728 
2691 3102 
2690 
1993 4402 
1994 4401 
2987 3005 
2200 2464 
2984 3046 
$33 2113 
2724 
934 2116 
4467 4549 
5021 5063 
2135 
2435 
2116 2120 
864 935 
3068 3254 
1482 2123 
50587 
Memodify, 


Azattribute, 


4534 4548 4560 
108 108 143 
1066 18906 1899 
1487 1614 1651 

4253 4341 

1809 3462 3472 

3018 

3221 

39040 3296 33106 
1987 2747 2811 

3288 3294 

5217 

5215 

3019 3218 3311 

3054 3055 3056 

2114 2466 2467 

2288 2581 2982 

4561 4609 4621 

5618 5720 

2142 2144 2147 

2489S 3077 3079 

3289S 4470 4508 


Sssubscript, 


Is1/0 ref, 


1989-08-21 


4674 


153 
2719 
1886 


4321 


3259 


2484 


3076 
4632 


4469 


4665 


CYBIL/II 1.0 89102 1989-08-21 
REFERENCES 

435 

921 
3234 
1944 1947 
48892 

151 152 750 752 988 {015 1021 
4770 &771 4772 4785 4786 4787 4788 
20693 

835 

921 922 

927 2495 2526 

1150 1166 

1173 1176 1181 

1048 

904 924 924 925 
3108 
4897 

$23 
2069 

$22 
§227 
4637 5384 
4687 5033 SO69 
5118 
5112 
5071 
5228 
5601/P 5603 5604/S 5605/S 
4686 $033 SOo69 §312/S8 5764/S 5767/S 
5320/Ss 
5282/S 
5304/S 
5751/S 5756/S 

430 
§227 5282 5283 5284 5595 
5072 5320 5342 $743 5784 
52390 
§228 
5528 
5775 S776 S777 
5035 5503 S686 

1896 1897 

s5 66 67 g5 863 1067 2137 
2226 2468 4980 4984 5000 5174 5182 
5184 5185 5204 
4235 
4506 4692 

533 578 2720 

137 S66 567 1891 18982 2733 
1579 1646 1647 2701 
36793 
3074 

Mzmodify, Azattribute, Stsubscript, I=I/0 ref, R=read, 


4723 


154 
4251 
2698 


4931 


3687 


3004 


4216 
4958 


4668 


Reread, Wewrite, 


Wewrite, 


13:33:34 


1062 


2225 
5183 


13:33:34 


5029 


155 
2699 


4946 


5721 


&252 
4958 


5022 


PAGE 357 


P=parameter 


PAGE 358 


Peparameter 


REFERENCES OF 
MMPSDEFINE_IMAGE_FILE 
IDENTIFIER--------+--- were aeee 


est$status_condition 
ost$status_condit ion_code 
ost$string 
ost$string_size 
ost$system_flag 
ost$system_virtual_ address 
ost$task_index 
ost$task_ time slice 
ost$top_of stack_pointer 
ostS$trap_enable 
ost$user_condition 
ost$user_ conditions 
ost$user_ identification 
ost$user name 
ost$valid_relative_ pointer 
ost$valid_ring 
ost$virtual_machine_identifier 
ost$wait 

ost$write_ privilege 
ost$x_register 

osv$180_ memory _ limits 


osv$cpus_logically_on 
osv$enable_hyperchannel 
osv$mainframe_wired_cb_ heap 
osv$mainframe_ wired heap 
osv$page_size 


page streaming transfer _ size 
pageid 

‘pagenum 

pages _in_memory 

pages to _dump_r_ pointer 
pft_link 


pft_p 


pft_ seq _p 
pft_size 
pfte p 
pfte_p 
pfti 

pfti 


pfti 

pft imax 

pftimin 
pmc$kili_task_flag 


RK 


REFERENCES OF 
MMPS$DEFINE_IMAGE_FILE 
IDENTIFIER---------+---------- 


pmc$max_ signal contents 
pmc$max_task_id 

pmp$f ind executing task_xcb 
pmp$zero_out table 
pmt$binary_mainframe_id 
pmt$condition_identifier 
pmt$cpu_model_number 
pmt$cpu_serial_ number 
pmt$S$initialization_value 
pmt$sense_ switches 
pmt$signal 
pmt$signal_contents 
pmt$signal_id 

pmt$task_id 
power 

power 

pqie 
ps_transfer 
ps_transfer 
ps_transfer 
ps_transfer 


size 
size 
Size power 
Size power 


pva 


qcb_p 
qcb_p 


queue_ id 
queue_id 
queue id 
queue_id 
queue status 


ri 
r2 
r pointer 
r_pointer 


reqcode 
request 
residence 
residence 
residence 


*x* 


mnm$deadstart initialization 


DEFINED 
ON LINE 
1162 
1166 


REFERENCE ABBREVIATIONS 


mum$deadstart_initialization 


DEFINED 
ON LINE 
3378 
3133 
4673 
4690 
1392 
3207 
2059 
2062 
2214 
2082 
3334 
3372 
33383 


REFERENCE ABBREVIATIONS 


me eocoeacee ee oe se we we 


weeee ec ee eer ee ew ee 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


3372 
3130 
4688 
5271 
1889 
3201 
2048 
2049 
2126 
1900 
3328 
3336 
3335 
2715 
4491/M 
5038/M 
5395 
4490 
5038 
44396 
5038 
$322/M 
5415/M 
5491/M 
§128 
5326 
S565 
5074 


53935/M 
5458/M 
5521/M 
5377/M 
5493 /M 
53539/M 
5349/M 
5394 

5629 /M 


4641 

5533/M 
3493/M 
5575/M 
S0O66/M 
5287/M 
5803 /M 
5831/M 
5066/M 
5067/M 
4427 

5368/M 
5622/P 


1.9 89102 
REFERENCES 

1510 2306 
1141 1162 
1142 

1180 

3391 

1097 §225 
1043 1125 
416 

2994 

2351 3285 
2835 
2953 2957 
1885 

1981 
2717 2718 
23994 

1741 1750 
4507 
2201 2465 
2984 3046 
5120/M $120 
5266 5520 
$281 
5590 
5760/S 
5242 5251/P 
4490 4490 
§235 §243 
5266 5464 
$0O38/P S044 
5327 5330/M 
5467 
5478/M 5478 
5575/P 5576/P 
5503 5503/M 
5693/M 5695/S 
5490/M 5491/M 
5498/M 5502 
5251/P $282 
5250/M 5251/P 
5503 5503 
S685 5685 
5503 $503 
5464/M 5481 
5503/P §504/S 
$527/S5 §530/S 
5541 5543/58 
5692 S693 
5308/M S309 
5307/M $309 
3411 

Mzemodify, 


1.0 89102 


5033 
5272 


2055 
2084 
4250 


3125 
4493/M 
5038/M 
5450 


4aas7/M 
5038/M 


§129/S 
§327/S 
5566/S 
5783 


5337/M 
$498 
5522 
5438/™M 
5532/M 
5377 
5351/M 
5395/S 
S660/M 


5380 


3494/M 
5575/M 
S5067/M 
5288/M 
5810/M 
5832/M 
5287/M 
5288/M 
4428 

5370/M 


1126 


3038 


4258 


2945 


5235 


5259/P 
5038 
5250 
5499 


5411 


5503/M 
5636 
5482/M 
5503/P 
5253 
5258/M 
5503/M 
5696/M 
S503 
5481 
5506/S 
5531/Ss 
5544/S 
5695 
5481 
5481 


Azattribute, 


4433 
5038 
$521 


4437 
5038 
5329/M 
5467 


5329/8 
5566/S 


5450/M 
5508 
5540 


5543/M 
5451/M 
5§353/M 
5397/S 


5384 


3495/M 
5575/M 
5068/M 
5289/M 
5812/P 
5834/P 
5803/M 
5810/M 
5046 

5372/P 


3067 


4261 


2947 


5235 


5263/P 
5038 
§253 
5500 


S467 


5503/5 
5697/M 
5433/M 


5259/P 
5259/P 


§503 
5481 
5510 
5532/S 
5546/S 
56397 
5525 
5481 


S=subscript, 


5274 


4496 
5038 


4499/M 
5038/M 
5330/M 


5330/S 


5458 
5512/M 
5541/M 


5457 
5355/M 
5457/M 


5592/M 


3496/M 
5575/M 
5075/M 
§291/P 


5831/M 
§832/M 
5050 


1889-08-21 13:33:34 
3257 3297 
3062 
5243 5250 §253 5258 
5267 5290/5 5300/P 5758/S 
5118/M 5120 5120 5121 
5257 5257 5257 5258 
5520 5582 
5503 §503/M 5691 5692/M 
5494/M 5495/M 54396/M 5497/M 
5260 5261 
5261 
5482 5482 5484/S 5490/5 
5512 5515 5525 5526 
5533/S 5535/58 5538 5539/SsS 
5547/S 
$482 $525 
I=I/0O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
5275 
4499 
5038 
5410 5411/8 5415/S 5491 
5513/M 5513 5514 5515/M 
5§542/M 5542 5562 
5353 5367 5374 5374 
5433 
5076/P 
5050 5623 


PAGE 3593 


Peparameter 


PAGE 360 


Mtmodify, Atattribute, S=subscript, Is1/0 ref, Reread, Wswrite, P*parameter 


REFERENCES OF 


MMPSDEFINE_ IMAGE _FILE 


mmm$deadstart_initialization 


IDENTIFIER----e e+e ee errr ----+-+DEFINED 

ON LINE 
r lower 3505 
rma 848 
rupper 3504 
scan_page_ table 5409 
scan_pft 5524 
scan_sdt 5340 
sdt_entry 50193 
sdt_entry 5226 
sdt_entry 5647 
sdt_offset 2717 
sdt_p 4323 
sdt_p 4535 
sdt_p 4634 
sdt_p SO56 
sdt_p 5170 
sdt_p 5170 
sdt_p 5223 
sdt_p 5704 
sdt_p 5716 
sdte 5227 
sdtx_entry 5020 
sdtx_entry 52293 
sdtx_entry 5648 
sdtx_entry 5717 
sdtx offset 2718 
sdtx_p 4536 
sdtx_p 5170 
sdtx_p 5224 
sdtx_p 5704 
sdtx_p 5718 
'sdtx table 2516 
seg 934 
seg 4424 
seg 5018 
segment _1ink 1086 
segment _ number 4632 
segment _mumber 5170 
segment table length 29382 
segnum 45493 
segnum 4561 
segqnum 4609 
.segnum 5018 
segnum 5018 
segnum 5021 
segnum 5063 
‘segnum 5618 


REFERENCES OF 


MMPSDEFINE_ IMAGE FILE 


IDENTIFIER---- ewe ewe “se e=eewee 


segnum 


seq_p 
seq_p 
seq _p_rma 
seq_p_rma 
sfid 
sfid 
sfid 


 sfid 


sfid 

sfid 

sfid 

sfid 

sft$counter 

sft$file_ space_limit kind 
software attribute set 


ssr_size 


st 


sytSmonitor 
‘syt$monitor 


‘tme$btc 


Syt$monitor 


stp 


. Stack_for_ring 


status 
status 
ste 


ste_p 
stream 
stxe_p 
sva 
sva 


‘syc$rc_ringi_segment_request 


syc$ucr condition 
syc$user_defined_condition 
flag. 

flags 

request _code 
status 


syt$monitor_ 
tme$broken_task_fault_id 
tme$btc_invalid_ao 
tme$btc_invalid_p 


mer_ traps disabled 
mf _ traps disabled 


tme$btc 


otme$btc_mntr_fault_ buffer full 
, 


tmce$btc_system_error 
tmc$btc_ucr_ traps_disabled 
tmc$dummy_ fault 


tmc$f lag availabie_31 


REFERENCE ABBREVIATIONS 


mmm$deadstart_initialization 


DEFINED 
ON LINE 
5720 


3480 
5170 
34390 
5170 
1070 
2486 
4418 
4802 
5018 
5619 
5652 
5841 

611 
2619 
24893 


$222 
2448 


5064 
4254 
5022 
5057 
2435 


5027 
2494 
5028 
1097 
5225 
2365 
3245 
3246 
3152 
3137 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


1.0 89102 
REFERENCES 

3485/™M 5575/M 
5464 
3494/M 5575/M 
5409 §413 
5524 5536 
5340 5343 
5042 
5591/M 5592/M 
5664/P 5665/M 
4527 4540 
4527/™M 
4540/M 
4637 48641 
5070/M 
5279/M 
5384 5384 
5279/P 5282/M 
$342 5358 
5731/M 
5731/P 5743 
5591 
5043 
55836/M 5597/M 
5654/M 5655/M 
5738/M 5739/M 
4541 4564 
4541/M 
5279/M 
5279/P 5348 
5731/M 
5731/P 5744/M 
5764/M 5767/M 
5348 5350 
5745/P 5751/M 
5785/M 5786/M 
5074 5783 
4426/M 4429/M 
5050/M 5050/M 
5503 5503 
5695/M 56S96/M 
4638 
5384 
5341 5742 
4552 
4564 
5075/M 
5039 
5040 
5039/P 5040/P 
5071 5072/S 
5634 5637 

Memodify, Azattr 

1.0 89102 
REFERENCES 

5742 5743/58 
5786/S 5787/S 
3492/P 3496 
5575/P 5575 
3492/P 3493 
5575/P 5575 
§5372/P §373 
S046 5047/P 
4427 4428 
5857/M 
5050 5050 
S622/P 5623 
5658/P 
$857 

580 581 
24393 
5348 5350 
5761/M 5762/M 
5257/M 5258 
5072 5282/M 
5342 5358 
5784 
5070/P 5072 
4639 5380/M 
5031/M 
5073/P 5074 
4637 4641 
5312 5320/M 
5593/M 5584/M 
5039/M 5042/M 
5044/M 
5040/M 5043/M 
5492/M 
5466/M 5467/M 
5066 5287 
3256 
3258 
3137 
2689 
2284 4581 
2285 4582 
3223 
3292 
3282 
3233 
3281 
32391 
3287 
3283 
32293 
3412 

Memodify, 


$487 
5548 
5401 


5593/M 


4552 


5283/M 
5361/M 


5745/P 


5597 
S656/M 
5740/M 
5040 


§350 


5745/P 
5785/M 
$352 

5756/M 
5787/M 


4431/M 
5050/M 
5503/M 


5047/P 
5073/P 
$638 


ibute, 


$744/S 


3494 
5575 
5435/P 
5050/P 
4434 


5050 
5638/M 
1901 


$379 
5764/M 


5283/M 
5361/M 
5384 
5080/M 
5072 
5342 
5595/M 
5044/M 


5468 
5809 


Azattribute, 


5518 


5§594/M 


5039 


5284/M 
§380 


5784 


5599/M 


5744 
5279 


$352 


5751/M 
5786/M 
5373/M 
5758/M 


4434 
5050 
5503/M 


5074 


Stsubscript, 


5745/S 


34395 
5575 


5373/M 
4435 


S050 


1903 


55937/M 
5785/M 


5284/M 
5380 


5282/M 
$358 
5664/P 


S046 


5492 
$831 


S=subscript, 
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5595/M 5604 
5070 5279 5728/M 5731 
5290/M 5304 $312 5320/M 
5383/P 5604/M 
5600/M 5601/P 5605 
5729/M 5731 
5373/M 5375/M 5379 5605/M 
5756/M 5758/M 5760/M 5762/M 
5787/M 
5375/M 53783 5605/M 5744/M 
5760/M 5762/M 5764/M S767/M 
4435 
5050 
5546/M 5547/™M 5685 5685 
S075 

Iz=I/O ref, Reread, Wewrite, Pp 
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5745/8 5783/M 5784/S 5785/S 
5601/P 
1904 1806 
5537 5655/M S5756/M 5758/M 
5290/M $304 5312 5320/M 
5383/P 5604/M $743 5745/P 
5283/M 5284/M 5§290/M 5304 
5380 $384 5384 5592/M 
5743 5784 
5047/P 5050/P 
5439 5500 

Izi/0O ref, Rzread, Wewrite, P:zp 


PAGE 361 


arameter 


PAGE 362 


arameter 


REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II 1.90 88102 1889-0 
MMPSDEFINE IMAGE FILE 
IDENTIFIER: -+*--c- ease eres ee DER TNE De 6.9.2 5.06 S55" -cc*-REFERENCES 
ON LINE 

tmc$maximum_monitor faults 3178 3169 
tmc$maximum_signais 3388 3385 
tmc$maximum_system_task_id 3421 3424 
tmc$mer_ fault 3173 3225 
tme$signal_available_ 63 3370 3381 
tme$stid_ null_task 3427 3424 
tmt$broken_task_condition 3270 3286 
tmt$broken_task_monitor fault 3284 3224 
tmt$mer_faults 3309 3226 
tmtS$monitor fault buffer 3163 2726 
tmtS$monitor_fault_buffers 3169 3164 3165 3166 
tmtSmonitor fault identifiers 3172 3222 3238 
tmtS$signal 3326 3321 
tmt$signal_ buffer 3318 2727 
tmt$signal buffers 3385 33139 3320 3321 
tmt$system_ flags 3391 2702 
tmt$system_task_id 3424 2693 
tmt$task_queue_ link 1124 10383 4368 
tos_array_ index 5721 5782 5783/S 
tos _registers 2994 5074 5783 
transfer _ size 2501 5044/M 
ts 4483 44390/M 4492 4432 4494/M 44394 
ts 5018 5038/M 5038 5038/M $038 5038 
upper 4909 5235 5250 §253 5258 5266 
Vv 843 5329/M 
value_type 2248 §138 
vi 2462 5072 5282/M 5283/M 5284/M 5290/M 5320 

5743 5784 
wait for ico complete 4583 5068/M 5289/M 
wp 2465 4637 §384 
xasid 4980 4989 49898 
xasid 5170 5360 S360 5431 5431 
xasid S646 5664 S664 
xast i 4981 4395/M 
xasti 433g 5005 
xasti 5170 5360/M 5431/M 
xasti 5170 5555 
xasti 5646 5664/M 
xcb 4673 4686/M 
xcb 5018 5033/M 
xcb 5056 50639/M 
xcb_p 4522 4527 4527 
xcb_p 4534 4540 4540 4541 4S41 
xcb_p 4548 4551 4552 
xcb_p 4560 4563 4564 
xcb op 5018 5039 §039 
xcb_p 5018 5040 5040 
xcb_p 5028 5033/P 5034 §039/P 5040/P 

*** REFERENCE ABBREVIATIONS M=emodify, Atattribute, Stsubscript, I21/0 ref, 
REFERENCES OF mmm$deadstart_initialization NOS/VE CYBIL/II -O 881602 1889-0 
MMPSDEFINE IMAGE FILE 
IDENTIFIER------ S Sees Sakis = Sos einne DEFINED-----+7+--+*-+2-+-"-*°REFERENCES 
ON LINE 
xcb_p SO56 5070 5070 
xcb p 5061 So069/P SO70/P 5074 
xcb_p 5170 $278 5278 5278 5279 
xcb_p 5704 5731 5731 $731 5731 
xcb op 5719 5727/M 5728/M 5729/M 5731/P 5742 §783 
xp 2688 5074 5341 5742 5783 
*** REFERENCE ABBREVIATIONS Msmodify, Azattribute, S:subscript, I:+1/0 ref, 
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/M 5342 559 


R=read, Wewrite, 
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Reread, Wewrite, 


PAGE 363 


5/M 


Pzsparameter 


PAGE 364 


P=parameter 


SOURCE LIST OF 


SOURCE 
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LIST OF 
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o0o0000 


eoo0o000 00 
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$237 
9238 
9239 
$240 
$241 


$243 
9244 
9245 
$263 
$264 
9265 
9266 
9267 


mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 893102 1989-08-21 13:33:34 
MODULE mmm$monitor_request_processor ; 
{ 
{ PURPOSE: Memory_Manager 
{ This module contains the monitor routines that are used to 
{ manage physical memory and the page table. 
{ 
{ This decks defines compile-time constants to control conditional compilation 
{ of debug code in memory manager modules in monitor mode. All constants should 
{ be set to FALSE for the transmitted version of this deck. 
CONST 
mmc$debug = TRUE; 
?VAR 
mmc$debug check queues: boolean :+ TRUE, {Check PQL linkage} 
mmc$debug relink_Swapping job: boolean := TRUE , {Stop if relink page of swapping job} 


mmc$debug pt: boolean := TRUE, {check PT - AST linkage} 


mmc$debug free _asid: hoolean :: TRUE, {Verify no attempt is made to free an AST 


{ entry with pages not in AVAIL queue. 


mmc$debug_aste_p_from_pfti: boolean :: TRUE, {Verify aste_p in pfti is correct 
mmc$debug rma_list: boolean := TRUE, {Verify RMA list on lock/unlock rma list} 
mmc$debug _esc_alloc: boolean := TRUE, {check for escaped allocation} 


mmc$debug ast_pft: boolean := TRUE?; {check pft.aste_p on reference to AST} 


} 


{ PURPOSE: This deck (mmc$manage_memory_ utility) primarily contains default values for the mmv$ variables 


{ and the Global Page Queue List allt of which are managed by the Manage Memory Utility which 
{ is in the module mmm$manage_memory. 
CONST 
mmc$mmu_age_interval ceiling = 10, { pages } 
mmc$mmu_age_interval_ floor = 3, { pages } 
mmc$mmu_aggressive_aging_one = 10, { pages } 
mmc$mmu_aggressive aging two = 18, { pages } 
mmc$mmu_aging_ algorithm = 4, { flag to select algorithm} 
mmc$mmu_jws_age_interval = 8000000, { microseconds } 
mmc$mmu_min_avail_ pages = 400, { pages } 
mmcSmmu_ps_prestream = 4, { page faults} 
mmc$mmu_ps_transfer_size = °, { bytes} {when non-zero, overrides transfer size from OM 
mmc$mmu_ps_threshold = 65536, { bytes} 
mmc$mmu_ps_reads = 3, { transfer units 
mmc$mmu_ps_random_timit = 3, { random page faults 
mmc$mmu_periodic_call_interval = 1000000, { microseconds } 
mmc$mmu_shared_age_interval = 8000000, { microseconds } 
mmc$mmu_swapping_aic cg iar { limit on mumber of times an unused page iS Swapped out} 
mmc$mmu_t ick_time = 100000, { microseconds, Real default is determined in deadstart. 
mmc$mmu_queue_age_task_service = 3, { number of shared_age_intervals} 
mmc$mmu_queue_age_pf_execute = 1, { number of shared_age_intervais} 
mmcS$mmu_queue_age_ pf_mon_exec = 13 { number of sShared_age_intervals} 
mmcS$mmu_queue_age_device_ file = 1, { mumber of shared_age_intervais] 
mmc$mmu_queue_age_file_ server = Ve, { number of shared _age_intervatls} 
mmc$mmu_queue_age_other = 1, { number of shared_age_intervals} 
mmc$mmu_queue_age_ site queues = 1, { number of shared_age_intervals} 
mmm$monitor request _processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
mmc$mmu_queue_maximum = osc$max_page_frames, {default maximum pages for all queues} 
mmc$mmu_queve_ minimum = QO; {default minimum pages for all queues} 
@ 
{External procedures used by this module. 
{ Try to keep them in altphabetical order. 
PROCEDURE [INLINE] display_monitor 
display_line: string ( * <= 255)); 
adpp$display_error (display, line); 
PROCEND display_monitor; 
PROCEDURE display_integer_ monitor 
( desc: string ( * <= 60); 
int: integer); 
VAR 
hex digits: [READ] array [0 .. 15] of char := [’0’, ‘17, ’2°, “3, °@’, 
"S’, *e%. as eae ae - eae 19! , at, ‘ht’, a oa ‘da’, ‘e’, ‘€’); 
TYPE 


convert = record 
case (integ, strng) of 
= integ = 
int: integer, 
= string = 
strn: string (8), 
casend, 
recend; 


VAR 
conv: convert, 
data: string (8), 
data_index: integer, 
line: string (80), 
line_index: integer ; 


line := desc; 

line_index : = #SIZE (desc) + 2; 

conv.int := int; 

data := conv.strn; 

FOR data_index :: 1 TO 8 DO 
line (line _index) := hex digits [SINTEGER (data (data_index)) DIV 16]; 
line (line_index + 1) :5 hex _digits [SINTEGER (data (data_index)) MOD 16]; 
line_index := line_index + 2; 

FOREND; 

display_monitor (line (1, (line_index - 1))); 

PROCEND display_integer monitor; 
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SQURCE 


900000000 eoooooeooeoaoaoodooodooaoooo0o0g00 eoo0oo0o0oo0o0o0oo0o0o0 ogo 00 


0000 000 


900000 


oo00 


$306 
9307 
9308 


9494 
94895 
9496 
$4397 
94388 
9439 
9500 
9501 
$502 
9503 
9504 
9505 


{ 
{ 


VAR : 
dfv$file server debug enabled: [XREF] boolean; 


PROCEDURE [XREF] dmp$deallocate_file_ space ( 
p_fde: gft$locked file desc_entry_p; 
initial release byte_address: amt$file_byte_address; 
initial_bytes_ to release: integer); 


PROCEDURE [INLINE] gfp$mtr_get_fde_p (sfid: gft$system_file_identifier; 
ijle_p: Ajmt$initiated_job_list_entry; 
VAR fde_p: gft$file_desc_entry_p); 


PROCEDURE [INLINE] gfp$mtr_get_locked_fde_p (sfid: gft$system_file_identifier; 
ijle_p: Ajmt$initiated,  job_list_entry; 
VAR fde_p: gft$locked_file_desc_entry_p}); 


PROCEDURE [XREF] i#real_memory_address (p: Acel1; 
VAR rma: integer); 


PROCEDURE [INLINE] jmp$Scheck_scheduler_ memory wait ; 


PROCEDURE [inline] jmp$get_ijle_p (ijl_ordinal: jmt$ijl_ordinal; 
VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


FUNCTION [INLINE] jmp$ij1l_bleck_valid 
( ijl_ordinal: jmt$ijl_ordinal): boolean; 


imp$ijl_block valid := NOT (jmv$ijil_p.block_p4A [ijl_ordinal.block_number].index_p = NIL); 
FUNCEND jmp$ijl_block_ valid; 


This procedure is called when we need access to the job fixed of a job that 
may or may not Nave an ajl assigned. 


PROCEDURE [INLINE] jmp$iock_ajl 
( ijle_p: Ajmt$initiated_job_list_entry; 
ijlo: jmt$iji_ordinal; 
VAR ajlo: jmt$ajl_ordina?l) ; 


VAR 
ajl_ordinal: jmt$aji_ordinal, 
status: sytS$monitor_ status; 


tmp$set_lock (tmv$pt1_lock) ; 
ajl_ordinal := ijle_pA.ajl_ordinal; 
IF ajl_ordinal = jmc$null_ajl_ordinal THEN 
imp$assign_ajl_with_lock (ijle_p4.job_fixed_asid, ijlo, jmc$lock_aj1, TRUE {MUST_ASSIGN}, 
ajlo, status); 


mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 
ELSE 
imv$ajl_p4 [lajl_ordinal].in_use := jmv$aji_p4 [ajl_ordinal].in_use + jmc$lock_ajl; 
ajlo := ajl_ordinal; 
IFEND; 


tmp$clear_lock (tmv$pt1_tlock); 


PROCEND jmp$lock_ajl; 


PROCEDURE [INLINE] jmp$uniock_ajl 
( ijle_ p: Ajmt$initiated job_list_entry}) ; 


VAR 
ajlo: jmt$ajl_ordinal; 


tmp$set_lock (tmv$pt1_tlock) ; 

ajlo := ijle p4.ajl_ordinal; 

IF (jmv$ajl_p4 [ajlo].in_use = jmc$lock_aj1) THEN 
imp$free_ajl_with_lock (ijle_p, jmc$lock_aj1); 

ELSE 
jimv$ajl_p*% [ajlo].in_use := jmv$ajil_pA [ajlo].in_use - jmc$lock_aji; 

IFEND; 

tmp$clear_lock (tmv$pt1_lock) ; 


PROCEND jmp$untlock_ajl; 


PROCEDURE [XREF] jmp$set_scheduler_event (event: jmt$job_scheduler_events) ; 


PROCEDURE [XREF] jsp$adv_expired_ swapped jobs (swap_queue_id: jst$swapped_but_stil1l_in_memory) ; 


PROCEDURE [XREF] jsp$initiate_swapout_io (pages needed: mmt$page_frame_index); 
PROCEDURE [XREF] jsp$io_complete (ijle_p: Ajmt$initiated_job_list entry); 
PROCEDURE [XREF] jsp$recalculate swapped pages 


( ijle_p: Ajmt$initiated_job_list_entry; 
pages _ removed: mmt$page_frame_index); 


PROCEDURE [XREF] mmp$age_job_working_ set [(ijle_p: AjmtGinitiated_job_list_entry; 
jcb_p: Ajmt$job_controi_block) ; 


PROCEDURE [XREF] mmp$asid (asti: mmt$ast_index; 
VAR asid: ost$asid); 


PROCEDURE [XREF] mmp$aste_pointer (asid: ost$asid; 
VAR aste_p: Ammt$act ive _segment table entry) ; 


PROCEDURE [XREF] mmp$asti (asid: ostS$asid; 
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VAR asti: 


PROCEDURE 


PROCEDURE 


mmtSast_index); 
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[XREF] mmp$change_asid (aste_p: Ammt$active_segment_table_entry; 
cld_asid: ost$asid; 
new_asid: ost$asid; 
new_asti: mmt$ast_index) ; 


LINLINE] mmp$check_queues; 


?I1F mmc$debug check _ queues THEN 
IF mmv$check_ queues >» O THEN 
mmp$xcheck_ queues; 


IFEND ; 
?1IFEND; 


PROCEND; 


PROCEDURE 


[XREF} mmp$convert_pva (p: Acel11; 


cst _p: Aost$cpu_state_tablie; 


VAR sva: 


ost$system_virtual_address; 


VAR fde_p: gft$locked file desc_entry_p; 

VAR aste_p: AmmtSactive_segment_table_entry; 
VAR ste_p: Ammt$segment_descriptor ; 

VAR stxe_p: Ammt$segment descriptor_extended) ; 


PROCEDURE 


PROCEDURE 


[INLINE] mmp$delete_last_pfti_from_array; 


[XREF] mmp$delete_pt_entry 


( pfti: mmt$page_ frame_index; 
unlink_page_from_segment: boolean) ; 


FUNCTION [XREF] mmp$determine_snhared_ queue_id 
( fde_p: gft$S$locked file_desc_entry_p; 
ste_p: Ammt$segment_descriptor): mmt$page_frame_queue_id; 


PROCEDURE 


[INLINE] mmp$fetch_pfti_array_size 


(VAR pfti_size: integer); 


PROCEDURE 


[INLINE] mmp$find_next_pft i 


(VAR xpfti: mmt$page_frame_index); 


PROCEDURE 


[XREF] mmp$free_asid (asid: ost$asid; 


aste_p: Ammt$active _segment_table_entry); 


PROCEDURE 


[XREF] mmp$free_memory_in_job_queves (VAR job_page_queue_ list: 


increment now: boolean; 
dadecrement_soon: boolean; 
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ome on oe pie om 


job_termination: boolean)  ; 


PROCEDURE 


[INLINE] mmp$get_inhibit_io_status 


( Tjl_ordinal: jmtSiji_ordinal; 
leck: boolean; 
VAR inhibit_io: boolean; 
VAR ijle_p: Ajmt$initiated_ job_list_entry); 


VAR 
ajlo: 


jmt$ajl_ordinal; 


imp$get_ijle_p (ijl_ordinal, ijte_p); 
inhibit _io := (ijle_pA.swap_status > jmc$inhibit_memory_manager_ io) ; 


IF NOT 


inhibit 10 THEN 


IF lock THEN 
tmp$set_lock (tmv$pt1_lock) ; 
jmp$lock_ajl_with_lock (ijle_p, iji_ordinal, ajio); 
tmp$clear_lock (tmv$pt 1_lock) ; 

IFEND; 


IFEND; 


PROCEND mmp$get_inhibit_io status; 


PROCEDURE 


[INLINE] mmp$get_max_sdt_pointer 


( xcb_p: Aest$execution_ control block; 
VAR sdt_p: mmt$max_sdt_p); 


PROCEDURE 


[INLINE] mmp$get_max_sdt_sdtx_pointer 


xcb_p: Aost$execut ion_control_ block; 
VAR sdt_p: mmt$max_sdt_p; 
VAR sdtx_p: mmt$max_sdtx_p); 
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PROCEDURE [XREF] mmpSinitialize_find_mext_pfti (xsva: ost$system_virtual_address; 
length: ost$segment_length; 
end_point_option: (include partial_pages, exclude partial pages) ; 
page_selection_criteria: mmt$page_ selection_criteria; 
aste_ p: Ammt$active segment_table_entry; 


VAR xpfti: 


mmt$page_frame_index) ; 


PROCEDURE [INLINE] mmp$maintain_memory thresholds; 


The purpose of this procedure is to check the memory thresholds 
concerning the status of jobs being swapped. If memory is needed 
Swapped jobs that have not had swapout I10 initiated are advanced. 


VAR 


available memory: 0 .. osc$max_page_frames - 1; 


availiable memory : = mmv$reassignable _page_frames.now + mmv$reassignable_page_frames. 
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SOURCE 


o 3904 soon; 
© $9805 
oO 9906 IF (available memory <= jmv$long wait_swap_threshold) AND 
o 9907 (mmv$reassignable_page_frames.swapout_io_not_initiated <> ©) THEN 
°o $908 ispSinitiate_ swapout_io (jmv$Slong_wait_swap_threshold - 
6 93909 available memory + 1); 
© 9910 {! Should do something here if not enough memory freed? 
o gs911 ELSE 
Oo 93912 {! What should be done here. 
oO 9913 IFEND; 
° 9914 
o 9915 PROCEND mmpS$maintain_memory thresholds; 
° 9916 
9922 
$923 PROCEDURE [XREF] mmp$make_pt_entry (sva: ost$system_virtual_address; 
9924 pfti: mmt$page_frame_index; 
9925 aste_ p: Ammt$active_segment_table_entry; 
9926 pfte_p: Ammt$page_ frame_table_ entry; 
9927 VAR mpt_status: mmt$make_pt_entry status); 
9928 
° 9931 
eo $932 FUNCTION [INLINE] mmp$get_sdtx_entry_p 
© 9933 { xcb_p: Aest$execution_control_ block; 
o 9934 segnum: ost$segment): Ammt$segment_descriptor_extended; 
© 9935 
o 9936 mmp$get_sdtx_entry p := #address (1, #segment (xcb_p), 
oO 9937 #SIZE (mmt$segment_descriptor_extended) * segnum + xcb_p4.sdtx_offset); 
° 9938 
°° $939 FUNCEND; 
°° 93840 
9943 
9944 
9945 FUNCTION [INLINE] mmp$get_sdt_entry_p 
9946 ( xcb p: Aost$execution_control_biock; 
9947 segnum: ost$segment): Ammt$segment_descriptor; 
9948 
9949 mmp$get_sdt_entry_p :: #address (1, #segment (xcb_p), 
9950 86 * segnum + xcb_pA.sdt_offset); 
$951 
9952 FUNCEND ; 
$953 
° 9956 
o 93957 PROCEDURE [XREF] mmp$mtr_set_get_segment_length (VAR request_bilock: 
o 93958 mmt$rb set _get_segment_length; 
o 9959 cst_p: Aost$cpu_state_ table); 
o 9g9860 
$980 PROCEDURE [XREF] mmp$process page _table_full (sva: ost$system_virtual_address; 
9981 VAR new_asid: ost$asid; 
9982 VAR new_asti: mmt$ast_index; 
9983 VAR new_aste_p: Ammt$active_segment_table_ entry; 
9984 VAR pt_full_status: mmt$pt_full_status); 
9985 
o 9988 PROCEDURE [XREF] mmp$process_volume_unavailable (xcb_p: Aost$execution_control block; 
o 3989 reset _p_register: boolean); 
9992 
9993 PROCEDURE [XREF ] mmp$reciaim_ast_entries 
9994 ( asti_that_cannot_be_ freed: mmt$ast_index) ; 
LIST OF mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 
9995 
o 93998 
o 398993 
© 10000 PROCEDURE [XREF] mmp$relink page frame (pfti: mmt$page_frame_index; 
© 10001 queue_id: mmt$page_frame_queue_ id) ; 
© 10002 
10005 
10006 PROCEDURE [XREF] mmp$remove_page_from_jws (pfti: mmt$page_frame_index; 
10007 ijle_p: Ajmt$initiated job_list_entry; 
10008 VAR mcount: integer; 
10009 VAR rcount: integer); 
10010 
© 10013 
o 10014 PROCEDURE [XREF] mmp$remove_pages_from_jws 
© 10015 ( modified queue_id: mmt$page_frame_queue_ id; 
© 10016 ijle_p: Ajmt$initiated_job_list_entry; 
© 10017 VAR modified page count: integer; 
© 10018 VAR totail_page_ count: integer); 
o 10018 
10022 
190023 PROCEDURE [XREF] mmp$remove_page_from_job (pfti: mmt$page_frame_index); 
10024 
Oo 10027 PROCEDURE [XREF] mmp$remove_stale_pages (VAR pqie: mmt$page_queue_list_entry; 
9 10028 age_limit: integer; 
Oo 10028 jcb_p: Ajmt$ job_control_ block; 
© 10030 ijle_p: Ajmt$initiated_job_list_entry; 
o 10031 queue _ id: mmt$page_ frame _queue_ id; 
© 10032 minimum_working set: 0 .. Of FFF(16); 
© 10033 VAR modified pages _ removed: integer ; 
Oo 10034 VAR total_pages_removed: integer); 
o 10035 
10038 
10039 PROCEDURE [INLINE] mmp$reset_find_next_pft i 
10040 (VAR xpfti: mmtGpage_frame_index) ; 
10041 
© 10064 
© 10065 PROCEDURE [INLINE] mmp$reset_store_pfti; 
Oo 10066 
10073 
10074 PROCEDURE [INLINE] mmp$set_include_pages_in_dump 
10075 { segment_number: ost$segment ; 
10076 fde_p: gft$locked file _desc_entry_p; 
10077 sdt_p: Ammt$segment_descriptor ; 
10078 VAR include _pages_in_dump: boolean) ; 
10079 
10080 IF (sdt_pA.ste.wp <> osc$non_writable) THEN 
10081 IF (segment _number < mmc$first_loader_predefined_seg) OR 
10082 (fde_pA.stack_for_ring <> ©) OR 
10083 (fde_pA.flags.global_template_ file) OR 
10084 (sdt_pA.ste.ri ¢= 2) THEN 
10085 include pages _ in dump := TRUE; 
10086 ELSE : 
10087 include pages _ in dump := FALSE; 
10088 IFEND; 
10089 ELSE 
10090 include _pages_in_dump := FALSE; 
10091 IFEND; 
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SOURCE 


is 


co°0 


0000000 


eooooogoo0 


e000 000 


10092 
10093 
10094 
10103 
10104 
10105 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 

10133 
10134 
10135 
10136 
10137 
10138 
10139 
10142 
10143 
10144 
10145 
10152 
10153 
10154 
10155 
10156 
10157 
10158 
10159 
10166 
10167 
10168 
10169 
101706 
10173 
10184 
10185 
10186 
10187 
10188 
10198 
10199 
10200 
10201 

10202 
10203 
10204 
10207 
10208 
10209 
10210 


LIST OF 


o°o000 oo0o0 


ooo00g000 00 000000 


e000 6 


10211 
10212 
10213 
10214 
10217 
10218 
10219 
10220 
190223 
10224 
10225 
10226 
10227 
10233 
10234 
10235 
10236 
10238 
19240 
10241 
10242 
10245 
10246 
10247 
10248 
10249 
10250 
10253 
10254 
10255 
10256 
10257 
10260 
10261 
10262 
10263 
10264 
10265 
10266 
10267 
10270 
10271 
10272 
190273 
10276 
10277 
10278 
10278 
10280 


{ 
{ 


PROCEND mmp$set_include_pages_in_dump; 
PROCEDURE [INLINE] mmp$store_pfti (pfti: mmt$page_frame_index) ; 


This procedure verifies that the asti stored in the file descriptor entry 


1989-08-21 


is still being used by 


the same job for the same file. If the asti is ok, it is returned; otherwise O is returned. 


PROCEDURE [INLINE] mmp$get_verify_asti_in_fde 
( fde_p: gft$locked file _desc_entry_p; 
sfid: goft$system_file_identifier ; 
ijlo: jmt$ijl_ordinal; 
VAR asti: mmt$ast_index) ; 


PROCEDURE [XREF] mmp$update_eoi 
( fde_p: gft$locked file _desc_entry_p; 
offset: ost$segment_offset ; 
reason: mmt$update_eoi_reason) ; 


PROCEDURE [XREF] mmp$verify_pva (pointer_to_pva: Ace11; 
access: mmt$segment_access type; 
VAR status: syt$monitor_ status) ; 


PROCEDURE [XREF] mmp$wr ite page _to_disk 
( fde_p: gft$locked_file_desc_entry_p; 
pfti: mmt$page_frame_index; 
iotype: iot$io function; 
io_id: mmt$io_identifier ; 
multiple page req: boolean; 
VAR write status: mmtSwrite page _to_disk_status) ; 


PROCEDURE [XREF] mmp$xtask_pva_to_sva (pva: 4Ace11; 
VAR sSva: ost$system_virtual_address; 
VAR status: syt$monitor_ status); 


PROCEDURE [INLINE] mtp$cst_p (VAR cst_p: Aost$cpu_state_table) ; 
PROCEDURE [INLINE] mtp$set_status_abnormal (identifier: string (2); 


condition: osc$max_status_condition_number + 1 .. OF FFFFFFFFE( 16); 
VAR status: syt$monitor status); 


PROCEDURE [XREF] osp$process_keypoint_io_error; 
PROCEDURE [XREF] osp$process_keypoint_per iodic; 


PROCEDURE [XREF] tmp$cause_task_switcn; 


PROCEDURE [XREF] tmp$check_for_swapout_candidate (ajlo: jmt$ajl_ordinal) ; 


PROCEDURE [XREF] tmp$check_timed_wait_not_queued 
( time next scan_wait_mnot_ queued: integer) ; 
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PROCEDURE [XREF] tmp$dequeve_task (VAR queue_ link: tmt$task_queue_link; 
VAR taskid: ost$global_task_id) ; 


PROCEDURE [XREF] tmpSfind_next queued _ task 
(VAR taskid: ost$global_task_id); 


PROCEDURE [INLINE] tmp$get_taskid_from_task_queue 
task queue: tmt$task_queue_link; 
VAR taskid: ost$global_task_id); 


PROCEDURE [XREF] tmp$get_xcb_p (task_id: ost$global_task_id; 
VAR xcb_p: Aost$execution_control block; 
VAR ijle_p: Ajmt$initiated_job_list_entry) ; 


PROCEDURE [XREF] tmp$idile_non_dispatchable_job 
{ ajl_ordinal: jmt$ajl_ordinal) ; 


o 


PROCEDURE [XREF] tmp$obtain_ijl_ordinal_from_pt1 
( gliobal_task_id: ost$global_task_id; 
VAR ijl_ordinal: jmt$ijl_ordinatl); 


PROCEDURE [XREF] tmp$queue_task (taskid: ost$global_task_id; 
task_status: tmt$task_status; 
VAR queue_link: tmt$task_queue_ Tink); 


PROCEDURE [XREF] tmp$reissue_monitor_request ; 
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PROCEDURE [XREF] tmp$send_monitor_ fault (task_id {input} : ost$global_task_id; 


monitor fault _p finput} : Aost$monitor fault; 
check _traps_enabled {input} : BOOLEAN) ; 


PROCEDURE [XREF] tmp$set_monitor_flag (task_id: ost$global_task_id; 
flag _id: syt$monitor_flag; 
VAR status: syt$monitor status); 


PROCEDURE [XREF] tmp$set_task_ready (task_id: ost$global_task_id; 
readying task_priority: jmt$dispatching priority; 
ready condition: tmt$ready condition) ; 
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Global 


SOURCE 


Global 


Variable Declarations - XREF and XDCL 


10284 {------ SS a Rce SS ems Smet sie eee) Sie ae SoS Se SS Sie eS eS ee Se SiS a Sens a eS ee eS eae Sele I ye ei i ee en ee Sie 
10285 
10286 TYPE 
10287 ptr type = record 
10288 case b: 0 .. 3 of 
10289 z: Oo : 
10290 st_p: Ammt$segment_descriptor_table, 
10291 = 4 8 
10292 pva: ost$pva, 
10293 = 2 = 
10294 p: Acell, 
10295 = 3 : 
10236 sdtx_p: Ammt$segment_descriptor_table_ex, 
10297 casend, 
10298 recend; 
10299 
10300 
10301 VAR 
10302 dmv$null_sfid: [XREF, READ, oss$mainframe_wired_literal] dmt$system_file_id; 
10303 ; 
© 10310 
© 10311 VAR 
© 10312 jimv$idie_ dispatching _controis: [XREF] jmtS$idle_dispatching_controls; 
© 160313 
10338 
103338 VAR 
10340 jmv$job_scheduler_ table: [XREF] jmt$job_scheduler_table; 
10341 
© 10504 
o 10505 VAR 
© 10506 jmv$scan_idie_dispatch_interval: [XREF] integer; 
© 10508 {Monitor segment table. } 
© 10509 
© 10510 VAR 
o 10511 mtv$monitor_segment_table: [XREF] record 
© 10512 St: ALIGNED [© MOD 8] array [0 .. 4095] of mmt$segment_descriptor, 
© 160513 recend; 
o 10514 
10518 {NOS segment table. 
10519 
10520 VAR 
10521 mtv$nos_segment_table_p: [KREF] 4 RECORD 
10522 st: ALIGNED [0 MOD 8] array [0 .. *] OF mmt$segment_descriptor, 
190523 RECEND; 
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00000 


0000 


ooo000 


10527 
10528 
10529 
10530 
10531 
10534 
10535 
10536 
10537 
10565 
10566 
10567 
10568 


10572 
10573 
10574 
10575 
10576 
10577 
10578 
10579 


10581 
10582 
10583 
10584 


10586 
10587 
10588 
10589 
10590 
10591 
10582 
10893 
10534 
10585 


105937 
105398 
10599 
10600 


10629 
10630 
10631 
10632 
10633 


VAR 
jmv$max_aji_ordinal_in_use: [XREF] jmt$ajl_ordinal; 
{Define pointer to Initiated Job List (IJL). 


VAR 
jimv$iji_p: [XREF] jimtSijil_p; 


VAR 
jmv$max_class_working set: [XREF] jmt$working set_size; 


VAR 
isv$pages needed for_sfd: [XREF] integer; 
VAR 


isv$swapped_page_entry_size: [KXREF] ©. .of f(16); 


VAR 
tmv$null_global_task_id: [READ] ost$global_task_id := [0, 0]; 


{Define minimum number of pages that must be kept in the free + available page 
{queues. If the actual nmumber drops below this value, memory manager begins 
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fam aggressive aging policy. If the number of page frames drops below mmv$aggressive_aging _level_2 
{then only critical system tasks are assigned memory. User tasks are put into a memory wait queue. 


VAR 
mmv$aggressive aging level: [XREF] integer, 
mmv$aggressive_ aging level_2: [XREF] integer; 


VAR 
mmv$aging statistics: [XREF] mmtSaging_statistics; 


{Pointer to the Active Segment Table - (AST).} 


VAR 
mmv$ast_p: [XREF] Ammt$act ive _segment_tabie; 
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10637 {Define async worklist for processing periodic activities. 
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10638 
10639 VAR 
10640 mmv$async_work: [XREF] mmtS$async_work_1list; 
10641 
Oo 10654 
Oo 10655 VAR 
oO 10656 mmv$max_ working set size: [XREF] integer ; 
© 10658 
© 10659 { The following variable cantains the maximum segment number of a global template segment. 
© 10660 
Oo 10661 VAR 
Oo 10662 mmv$max_template_segment_number: [XREF] integer; 
© 10664 {The following variable indicates if the configuration consists of multiple 
© 10665 {caches that are not hardware connected for unified cache purging - ie, if a cache 
© 10666 {purge is required each processor must purge its own cache. 
© 10667 
Oo 10668 VAR 
© 10669 mmv$multiple caches: [XREF]) boolean; 
© 10670 
© 10672 {The following variable indicates if the configuration consists of multiple 
© 10673 {page MAPS that are not hardware connected for unified map purging - ie, 
© 10674 {if a page map purge is required each processor must purge its own map. 
o 10675 
Oo 10676 VAR 
© 10677 mmv$Smultiple page maps: [XREF] boolean; 
Oo 10678 
© 10680 {Define variable used to activate/deactivate multi-page write. Multi-page write activated 
© 10681 {means that memory manager attempts to write all modified pages in a transfer unit whenever 
© 10682 {any page in the transfer unit is written. 
© 10683 
Oo 10684 VAR 
© 10685 mmv$multi_page write: [XREF]) boolean; 
© 10687 
© 10688 {Define variable used as the nead of the linked list of tasks waiting for 
© 106839 {memory. 
© 10690 
o 10691 VAR 
© 10652 mmv$S$memory_ wait queue: [XREF] tmt$task_ queue_ Tink; 
© 10693 
10697 


10698 {Define option used to disable buffering of aged out pages im memory, i.e. when a page 
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e 


10699 {is aged out, it is written to disk (if necessary) and placed in the free queue. 


10700 

10701 VAR 

10702 mmv$no_memory buffering: [XREF] boolean; 
10703 


10705 {Pointer to the ‘PAGE FRAME TABLE’ (PFT) 


10706 

10707 VAR 

10708 mmv$pft_p: [XREF] Ammt$page_ frame_table; 
10709 


© 10713 {Define pointer to array for holding PFTI lists. This array is used in monitor for holding lists 
© 10714 {PFTIsS of pages belonging to a segment. 
o 160715 
Oo 10716 VAR 
© 10717 mmv$Spfti_array_p: [XREF] Ammt$pfti_array; 
© 10718 
Oo 10722 
© 10723 { Gloehal Page Queue List array. 
oO 10724 
© 10725 VAR 
Oo 10726 mmv$gpqi: [XREF] mmt$global_page_queue_ Tist; 
10729 
10731 {Define page table length in words. 
10732 
10733 VAR 
10734 mmv$Spt_length: [XREF] integer ; 
10735 
10737 {Pointer to the system PAGE TABLE (PT). 
10738 
10739 VAR 
10740 mmv$pt_p: [XREF] Aost$page_table; 
10741 : 
© 10745 {The following variable contains a count of the number of page frames that can be reassigned to be 
© 10746 {used for another purpose. The count represents the number of pages that are in the free + available 
© 10747 {queues. The count is broken into two parts - pages with no I0 active, and pages with I0 active. 
Oo 10748 
o 10749 VAR 
© 10750 mmv$reassignable page _ frames: [XREF] mmt$reassignablie_page_ frames; 
10761 


10762 [ Define the mumber of free and available pages that job scheduier tries to 
10763 { keep avilable for all active jobs. 
10764 
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eoo00$0 


10765 
10766 


10768 
10769 
10770 
10771 
10772 


1O774 
10775 
10776 
10777 


107793 
10780 
10781 
10782 
10783 
10784 
10785 
10786 


10788 
10789 
10790 
1079 1 


10793 
10794 
10795 


11001 
11002 
11003 
119004 
11005 


11009 
11010 
11011 
119012 


11014 
11015 
11016 


VAR 
mmv$resident_job_ target: [XREF] integer; 


{Define variable used to indicate if memory manager tables have been 


VAR 
mmv$tables_ initialized: [XREF] boolean; 


VAR 
mmv$test_reassign_asid: [XREF] boolean; 


{Define option used to force aged out pages to be written to disk 
{immediately when it is aged out of a job working set. 
{Page are written if SOON + NOW < mmv$write_ aged _out_pages. 


VAR 
mmv$write aged out pages: [XREF] integer; 


{Time for next periodic call to Memory Manager from CP Monitor. 
VAR 


mmv$time_to_call_mem_mgr: [XREF] integer; 


VAR 
esv$keypoint_control: [XREF] ost$keypoint control; 


{System page size.} 


VAR 
osv$page size: [XREF] ost$page_size; 


VAR 
mmv$shared_pages_in_jws: [XREF] boolean; 


VAR 
imv$system_ijl_ordinal: [XREF] jmt$iji_ordinal; 
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oo0o90 


ooo0°0 


‘90000000 


0000 


VAR 
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initialized. 


1989-08-21 


osv$cpus_ physically_configured: [XREF] 1 .. osc$max_number_of_ processors; 


{This variable specifies the lower and upper RMA addresses available to NOSVE. 


VAR 
osv$180_ memory _limits: [XREF] record 
lower: O .. OF FFFFFFF(IE), 


deadstart_upper: 0 .. OF FFFFFFF(IE), { Upper limit of memory during deadstart. 


upper: O© .. OF FFFFFFF(IE), 
recend; 


VAR 
osv$time_to_check_asyn: [XREF] integer; 


VAR 
tmv$cpu_execution_statistics: [XREF] tmt$cpu_execution_ statistics; 


VAR 
tmv$dispatching controls: [XREF] tmt$dispatching_controls; 


VAR 
tmv$dispatching control_sets: [XREF] tmt$dispatching control sets; 


{If a job goes into WAIT with a long time requested but expects a short time, 
{the scheduler does mot swap it out. If it doesnt go ready with the amount of ti 


{specified by this constant, the scheduler will swap it out anyway. 


VAR 
tmv$iong wait_force swap_time: [XREF] integer; 


VAR 
tmv$pti_p: [XREF] Atmt$primary_task_list; 
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oO 111698 
o 11170 VAR 
o 11171 tmv$timed_ wait _not_queued: [XREF] integer; 
Oo 11172 
Oo 11174 VAR 
© 11175 mmv$ring!i_request_trace: [XDCL, #GATE] ARRAY [0 .. 20] of integer, 
Oo 11176 mmv$free_file_server_pages: [XDCL] boolean := FALSE, 
© 11177 mmv$jws queue_age_interval: [XDCL, #GATE] integer := mmc$mmu_jws_age_interval, 
Oo 11178 mmv$reduce_ jws_for_thrashing: [XDCL] boolean := FALSE, 
o 11179 mmv$shared_ queue_age_interval: [XDCL, #GATE] integer := mmc$mmu_shared_age_interval, 
© 11180 mmv$iast_active_shared_ queue: [XDCL, #GATE] mmt$global_page_queue_ index mmc$pq_shared_last_sys, 
Oo 11181 mmv$periodic_call_interval: [XDCL, #GATE] integer := mmc$mmu_periodic_call_interval, 
© 11182 mmv$searched_entire_pft: integer := 0O, 
© 11183 mmvS$test_pt_full: [XDCL] integer :=: Oo, 
© 11184 mmv$total_ page frames: [XDCL, #GATE] mmt$page_frame_index := 1500, {deadstart init resets exactly} 
Oo 11185 mmv$trap_m: [XDCL] ©..255 :: 0, 
© 11186 mmv$image_file: [XDCL, #GATE] mmtS$image_file := [FALSE, * , * J, 
oO 11187 mmv$aging_ algorithm: [XDCL, #GATE] integer := mmc$mmu_aging_ algorithm, 
o 11188 syv$user_templates: [XDCL, #GATE] boolean := FALSE; 
o 11188 
SOURCE LIST OF mmm$monitor_request processor NOS/VE CYBIL/II 1.0 89162 1989-08-21 13:33:34 


INLINE PROCEDURES FROM COMMON DECKS 


o 11191 PROCEDURE [INLINE] mmp$aste_pointer_from_pfti (pfti: mmt$page_frame_ index; 
oOo 11192 VAR aste_p: Ammt$active_segment_table_entry) ; 
© 11193 
o 11194 ? IF mmc$debug_ aste_p_from_pfti THEN 
o 11195 mmp$aste_pointer (mmv$pft_pA [pfti].sva.asid, aste_p); 
o 11196 IF aste_p <> mmv$pft_pA [pfti].aste_p THEN 
o 111397 mtp$error_ stop (‘MM - ERROR IN ASTE_ POINTER_FROM_PFTI’); 
o 11198 IFEND; 
Oo 11189 ? ELSE 
11200 aste_p := mmv$pft_pA [pfti].aste_p; 
o 11201 ? XIFEND; 
11202 
11203 PROCEND mmp$S$aste_pointer_from_pfti; 
11205 PROCEDURE [INLINE] mmp$purge_ali_cache; 
11206 
11207 VAR 
11208 null_sva: O .. OF FFFFFFFFFFF( 16) ; 
11209 
11210 IF mmv$multiple caches THEN 
11211 mmp$purge_all_cache_proc; 
11212 ELSE 
11213 #purge buffer (eosc$purge_all_ cache, nulil_sva); 
11214 IFEND; 
11215 
11216 PROCEND ; 
Oo 11222 
Oo 11223 PROCEDURE [INLINE] mmp$purge_alil_cache_map; 
o 11224 
Oo 11225 VAR 
Oo 11226 nullosva: 0 .. OFFFFFFFFFFFF( 16); 
Oo 11227 
o 11228 IF mmv$multiple_caches OR mmv$multipie page_maps THEN 
© 11228 mmp$purge_all_cache_map_proc; 
© 11230 ELSE 
Oo 11231 #purge buffer (osc$purge_all_cache, null_sva); 
© 11232 #purge_buffer (osc$purge_all_page_ seg map, null_sva); 
© 11233 IFEND; 
© 11234 
oO 11235 PROCEND; 
11241 
11242 PROCEDURE [INLINE] mmp$purge_all_page_map; 
11243 
11244 VAR 
11245 null_sva: 0 .. OF FFFFFFFFFFF( 16); 
11246 
11247 IF mmv$muiltiple page _maps THEN 
11248 mmp$purge_all_map_proc; 
11249 ELSE 
11250 #purge buffer (osc$purge_all_page_seg map, nulil_sva); 


11251 IFEND; 
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11252 
11253 PROCEND; 
© 11259 PROCEDURE [INLINE] mmp$sva_purge_all_page_map (sva: ost$system_virtual_ address) ; 
© 112606 
o 11261 IF mmv$muiltiple_page_ maps THEN 
o 11262 mmp$purge_all_map_proc; 
Oo 11263 ELSE 
© 11264 #purge_ buffer (osc$sva_purge_all_page_map, sva)j; 
Oo 11265 IFEND; 
0 11266 
0 11267 PROCEND; 
11271 PROCEDURE [INLINE] mmp$sva_purge_one_page_map (sva: ost$system_virtual_address); 
11272 
11273 IF mmv$multiple page maps THEN 
11274 mmp$purge_all_map_proc; 
11275 ELSE 
11276 #purge buffer (osc$sva_purge one _page_map, sva); 
11277 IFEND; 
11278 
11279 PROCEND ; 
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° 


oo0o0o00o0000 000000080 


11283 
11284 
11285 
11286 
11287 
11288 
11289 
11290 
11291 
11232 
11293 
11294 
1 

1 

1 

1 


PROCEDURE [INLINE] mmp$link_page_frame_to_queue (pfti: mmt$page_frame_ index; 
pfte_p: Ammt$page_frame_table_entry}; 


pfte pA. link. fwd := mmv$gpql [pfte_p%.queue_id].pqie. link. fwd; 
IF mmv$gpqi [pfte_p%.queue_id].pqie.link.fwd = 0 THEN 
mmv$gpql [pfte_pA.queue_id].pqie.link.bkw := pfti; 
ELSE 
mmv$pft_ pAitmmv$gpqi [pfte_pA.queue_id].pqie.link.fwd].link.DBkw := pfti; 
IFEND; 
mmv$gpqi [pfte_pA.queue_id] .pqie. link. fwd 12 pFfti; 
mmv$gpqi [pfte_p%.queue_id].pqlie.count := mmv$gpql [pfte_p%.queue_id].pqie.count + 1; 
mmv$reassignable page_frames.soon := mmv$reassignable_ page _frames.soon - 1; 
mmv$reassignable page_frames.now := mmv$reassignable_page_frames.now + 1; 


jmp$check_scheduler_memory wait; 


PROCEND mmp$link_page_frame_to_queue; 
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© 11303 PROCEDURE [INLINE] get_system_jobs_working set 
oOo 11304 (VAR working set: mmt$page_frame_index) ; 
© 11305 
© 11306 VAR 
© 11307 ijle_p: Ajmt$initiated_job_list_entry; 
© 11308 
© 11309 jmp$get_ijle_p (jmv$system_ijl_ordinal, ijle_p); 
o 11310 working set := ijle_p4”.job_page_queue_list [mmc$pq_job_fixed].count + ijle_p4”.job_page_queue_ list 
© 11311 [mmc$pq_job_io_error].count + ijle_p”. job_page_queue_list [mmc$pq_job_working set] .count ; 
Oo 11312 
oO 11313 PROCEND get _system_jobs_working set; 
© 11314 
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This request is used to unlock page frames which were previously 

locked via a MMPS$BUILD_ LOCK _RMA_LIST request. The ‘used’ and ‘modified’ bits 

in the page table entry for each page frame are updated according to the 

type of 10 done into the page frames. All tasks queued waiting for the 

page frames because of page faults are made ready when the page frames are 
unlocked. 

The ’active_ico_ page count’ of the job owning the pages is decremented. The 
‘inhibit _Swap_count’ of the job is also decremented unless the I0 was a 

write to a local file. If the ’inhibit_swap_count’ goes to zero for the 

job and the job is being Swapped out, the job swapping task 1S made ready. 

If the job is Swapped and awrite error occurs on a local file, the page is put 
into the io error while swapped queue. A call is made to ready the task so the 
job can swap in and reclaim the page. 


NOTE: THE LIST THAT IS UNLOCKED MUST BE EXACTLY THE SAME LIST THAT WAS 
LOCKED BY MMPSBUILD_LOCK_RMA_LIST 


MMPSUNLOCK_RMA_LIST (IO_TYPE, LIST_P, LIST_LENGTH, I0_ID, MF_JOB_FILE, 
IO0_ERROR, STATUS); 


IO_TYPE: (input) This parameter specifies the type of 10 that has 
taken place into the page frames. The value of this 
parameter should agree with the <io_type> passed on the 
MMPSBUILD LOCK RMA_LIST request. 
LIST_P: (input) This parameter points to an array which 
defines the page frames to be unlocked. This MUST be the same 
list returned on the MMPSBUILD_ LOCK_RMA_LIST request. 
Several locked lists CANNOT be grouped together to be unlocked 
by mmp$unlock rma_list. 
LIST _LENGTH: (input) This parameter specifies the number of entries 
in the RMA list. An RMA list entry that contains a ‘length’ of zero 
will terminate the Tist even though more entries remain. 
IO0_!0: (input) This parameter is used to specify an io identifier that MM 
uses during request processing. 
MF_JOB_FILE: (input) This specifies whether or not the file is a local 


file. 
IO_ERROR: (input,output) This specifies how the 10 to/from the pages 
terminated. Page manager uses this parameter 


together with <io_type> to determine how to update the 
‘used’ and ‘modified’ bits in the page table. 
For local file writes, iec$no_error is returned if the error is 


processed. 
STATUS: (output) This parameter specifies the request status. 
No error codes are returned. &11 error will result in @ call to 


mtp$error_ stop. 


PROCEDURE [XDCL] mmp$untock rma_list 
{ ietype: iot$ioc_ function; 
list_p: Ammt$rma_list; 
list_length: mmt$rma_list_length; 
io_identifier: mmt$io_identifier; 
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SQURCE LIST OF 


mf job _ file: boolean; 
VAR io_error: iot$io_ error; 
VAR status: syt$monitor_status) ; 
PROCEDURE process write failure; 
pte _ pA.v := TRUE; 
pfte pAr.io_ error :: init _io_ error; 
IF pfte_prA.aste _ pA. queue _id = mmc$pq_ job_working set THEN 
IF pfte_pA.aste_ pA.sfid.residence = gfc$tr_system THEN 
{Note link to shared error q - required by job exit to 
{leave pages in memory correctly. 
mmp$relink page _frame (pfti, mmc$pq_shared_io_error); 
ELSE 
ijl_ordinal := pfte_ pA.ijl_ordinal; 
imp$get_ijle_p (ijl_ordinal, ijle_p); 
{ If this page is already in the swapped error queue then it has already been 
{ put there as part of a transfer unit on an initial write. If the job is 
{ Swapped pass the wait io complete state (JW) and the page is part of the job 
{ working set leave it there and just set the modified bit. We are OK unless 
{ memory gets freed. But since there is a page in the avail modified queue 
{ that belongs to the same transfer unit in this write request that will be 
{ put into the swapped error queue, when we swap in and reclaim it we can 
{ reset the modified bit for all pages in this transfer unit. 
IF (pfte_pA.queue_id <> mmc$pq_swapped_io_error) THEN 

IF ijl¢_p4.swap_status <= jmc$iss_wait_job_io_complete THEN 
mmp$relink page frame (pfti, mmc$pq_job_io_error); 

ELSEIF (pfte_pA.queue_id = mmc$pq_avail_modif ied) THEN 
mmp$relink_page_ frame (pfti, mmc$pq_swapped_io_error) ; 
ijle_p4”.delayed_swapin_work : = ijle_p4A.delayed_ swapin_work + 

$jmtS$delayed_ swapin_work [ jmc$dsw_io_error_while_swapped] ; 

IFEND; 

IFEND; 
{ If this is an initial write that failed we must remove any other pages in the 
{ transfer unit that might have been queued for 10 after this request was made. 
IF(io_error = ioc$error_on_init) OR (io_error = ioc$unit_down_on_init) THEN 
remove _pages_in_tu (ijle_p, pfte_p); 
IFEND ; 
io error := ioc$no_error; 
IFEND; 
ELSE 
mmp$relink page_frame (pfti, mmc$pq_shared_io_error); 
IFEND; 
pte _pA.m := TRUE; {Must be after RELINK} 
PROCEND process_ write failure; 
PROCEDURE process_ rewrite success; 
IF pfte_ pA.active_io_count = O THEN 
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WHILE pfte_pA.task_queue.head <> © DO 
tmp$dequeue_task (pfte_ pA.task_queue, taskid); 


WHILEND; 
{Page that was in error queue has been written correctiy !! 
pfte pA.jio_error := jioc$no_error ; 
mmv$successful_error_retry := mmv$successful_error_retry + 1; 
If page is in available modified, move it to the correct queue. If the page 


is part of the working set and the job is not swapped pass the wait io complete 


state, move it to the correct queue. Else leave it were it is. Otherwise 
mmv$reassignable page_frames.soon will not be decremented correct ly. 


IF NOT mmv$pt_p4 [pfte_pA.pti].m THEN 
ijl_ordinal : = pfte pA.ijl_ordinal; 
imp$get_ijle_p (ijl_ordinal, ijie_p); 
IF (ijle_pA.swap_status <= jmc$iss_wait_job_io_complete) OR 
(pfte_p’%.queue_id = mmc$pq_avail_modified) THEN 
pte _ pA.v := FALSE; 
mmp$sva_purge_one_page_map (pfte_pA.sva); {Essential for dual CPU} 
IF mmv$no_memory_buffering THEN 
mmp$delete pt_entry (pfti, TRUE); 
mmp$relink_page_ frame (pfti, mmc$pq_free) ; 
ELSE 
mmp$relink page frame (pfti, mmc$pq_avai1); 
IFEND; 
IFEND; 
IFEND; 
IFEND; 


PROCEND process _ rewrite success; 


PROCEDURE remove _pages_in_tu 
ijle_p: Ajmt$initiated job _list_entry; 
init _pfte_p: AmmtS$page_frame_table_entry) ; 


CONST 
allow_allocation = TRUE; 

VAR 
ajlo: jmt$ajl_ordinal, 
boffset: integer, 
eoffset: integer, 
fde_p: gft$file_desc_entry_p, 
info: dmt$chapter_info, 
pfte_ p: Ammt$page_frame_table_ entry, 
pfti: mmt$page_frame_index, 
pte _p: Aost$page table _entry; 


IF ijle_p4.swap_status >= jmcS$iss_free swapped memory THEN 
IF (init _pfte_pA.sva.offset - dmc$max_transfer_size) < © THEN 
boffset :=: 0; 
ELSE 
boffset := init _pfte _pA.sva.offset - dmc$max_transfer_size; 
IFEND; 


IF ((init_pfte_pA.sva.offset - dmc$max_transfer_size) <= osc$max_segment_length) THEN 


eoffset := init _pfte pA.sva.offset + dmc$max_transfer_size; 
ELSE 
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56 11485 eoffset := osc$max_segment_length; 
5c 11486 IFEND; 
60 11487 ELSE 
60 11488 jmp$ lock_ajl (ijle_p, init _pfte pA. aste pr.ijl_ordinal, ajlo); 
144 11489 
144 11490 gfp$mtr_get_fde_p (init_pfte_pr.aste_pA.sfid, ijle_p, fde_p); 
TAA 11491 boffset := init_pfte_p%.sva.offset DIV fde_pA.allocation_unit_size *fde_p%.allocation_unit_size; 
1AA 11492 eoffset :=: boffset + fde pr. allocation_unit_size; 
1AA 11493 
1AA 11494 jmp$uniock_ajl (ijle_p); 
278 11495 IFEND; 
278 11496 
278 11497 pfti := init _pfte pA. aste_ pA.pft_Tink. fwd; 
278 11498 
278 #11498 WHILE pfti <> oO DO 
284 11500 pfte_p := AmmvS$pFft_pA [pftil]; 
284 11501 IF (pfte_ p%.sva.offset >= boffset) AND (pfte_pA.sva.offset < eoffset) AND 
2BC 11502 (pfte_ pA.active_io_coumt <> ©) THEN 
2BC 11503 IF pfte_ pA. locked page = mmc$1p_page_in_lock THEN 
2C6 11504 mmp$delete_pt_entry (pfti, TRUE); 
2DC 11505 mmp$relink_page_ frame (pfti, mmc$pq_ free) ; 
2F6 11506 ELSE 
2F6 11507 
2F6 11508 { Assume write - other jiotypes are not used with local files. 
2F6 11509 { If this page is already in the Swapped error queue then it was put there as part 
2F6 11510 { of a transfer unit om another initial write. The job iS Swapped and memory has 
2F6 11511 { been freed so the maximum transfer size was used. 
2F6 11512 { If the job iS Swapped pass the wait job io complete state and the page is part of 
2F6 11513 f{ the job working set leave the page where it is and just set the modified bit. 
2F6 11514 { If memory gets freed, all pages in the transfer unit will get their modified bit 
2F6 11515 { reset when we swap in and reciaim io error pages. 
2F6 11516 
2F6 11517 IF (pfte_pA.queue_id <> mmc$pq_swapped_io_error) THEN 
302 11518 pte_p := Ammv$pt_pA [pfte_ pA. pti]; 
302 11519 pte _ pA.v := TRUE; 
302 11520 IF ijle_pA.swap_status < jmc$iss_job_io_complete THEN 
328 11521 mmp$relink_ page frame (pfti, mmc$pq_job_io_error) ; 
344 11522 ELSEIF (pfte_p4%.queue_id = mmc$pq_avail_ modified) THEN 
34A 11523 mmp$relink page_frame (pfti, mmc$pq_swapped_io_error) ; 
360 11524 IFEND; 
360 11525 pte pA.m := TRUE; 
366 11526 IFEND; 
36A 11527 IFEND; 
36A 11528 IFEND; 
364A 11529 pfti :2 mmv$pft_pA [pfti}].segment_link. fwd; 
36A 11530 WHILEND; 
38A 11531 
38A 11532 PROCEND remove _pages_in_tu; 
© 11533 
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141535 

11536 VAR 

11837 count: integer, 

11538 decrement inhibit swap: © .. mmc$max_rma_list_length, 
11539 ijl_ordinal: jmt$ijl_ordinal, 

11540 ijle_p: Ajmt$initiated_job_list_entry, 

11541 initial_reassignable_now: integer, 

11542 list_i: mmt$rma_list_index, 

11543 mmv$successful_error_retry: [XDCL] integer := 0, 

11544 pfte_p: Ammt$page_frame_table_entry, 

11545 pte_p: Aost$page_table_entry, 

11546 pfti: mmt$page_frame_index, 

11547 taskid: ost$global_task_id, 

11548 init _io_error: iot$io_error ; 

11548 

11550 status.normal ::= TRUE; 

11581 

11552 init_io error := io_error; 

11553 initial _reassignable_now := mmv$reassignable_page_frames.now; 
11554 

11555 decrement_inhibit_ swap := list _length; 

11556 IF (iotype = ioc$swap_out) OR (iotype = ioc$swap_in) THEN 
11557 ijl_ordinal : = io_identifier.ijl_ordinal; 

11558 imp$get_ijie_p (ijl_ordinal, ijle_p); 

11589 IF io_error <> ioc$no_error THEN 

11560 ijle_pA.swap_data.swapping_ io_error := io error; 
11561 IFEND; 

11562 

11563 ELSE { Not swap io } 

11564 

11565 /untock_pages/ 

11566 FOR list _i := 1 TO list_length DO 

11567 IF list _pA [list_i].length = © THEN 

11568 EXIT /unlock_pages/; 

11569 IFEND; 

11570 pfti := list pA [list_i].rma DIV osv$page_size; 

11571 #KEYPOINT (osk$debug, pfti * osk$m, mmk$unlock_ rmal) ; 
11572 

11573 pfte_ p := Ammv$pft_pA [pftil; 

11574 IF pfte_pA.active_ io count = © THEN 

11575 mtpS$error_ stop (‘mm - unmlock rma list error’); 
11576 IFEND; 

11577 pfte pA. active _io_count := pfte_pA.active_io_count - 1; 
11578 

11579 IF pfte_pA.queue id = mmc$pq_ free THEN 

11580 IF pfte_ pA.active_io_count = 0 THEN 

11581 IF (io_error <> ioc$no_error) AND (jiotype = ioc$keypoint_io) THEN 
-11582 osp$process_ keypoint_io_error; 

11583 IFEND; 

11584 mmp$ link _page_frame_to queue (pfti, pfte_p); 
11585 IFEND; . 

11586 ELSE 

11587 pte_p := Ammv$pt_pA [pfte_pA.ptil; 

11588 

11589 {i!! ?7I1F mmc$debug rma_list THEN 

115390 IF (iotype = ioc$write_ locked page) AND (pfte_p4.queuve_id < mmc$pq_first_valid_in_pt) THEN 
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1FA 11591 mtp$error stop (’MM - unlock rmal, bad queue’); 
214A 11592 IFEND; 
214 11593 {!1! ?IFEND; 
214 11594 
214 11595 CASE iotype OF 
28C 11596 = jioc$S$ne_io = 
2C2 11597 = ioc$explicit_write, ioc$write mass_storage, ioc$initialize_ sectors 
2C8 11598 » ioc$write_to_ client = 
2c8 11599 = ioc$explicit_read, ioc$read_uft, ioc$read_mass_storage, ioc$explicit_read_no_purge 
2C8 11600 IF (list_i = 1) AND (iotype <> ioc$explicit_read_no_purge) THEN 
2D6 11601 mmpSpurge_ali_cache; 
2F& 11602 IFEND; ; 
2F8 11603 IF (pfte_pA.queue_id = mmc$pq_avail_modified) AND NOT pte_pA.m THEN 
312 11604 mmv$reassignable_ page _frames.soon :=: mmv$reassignable_page_frames.soon - 1; 
31C 11605 IFEND; 
31C 11606 pte pA.m :2 TRUE; 
324A 11607 = ioc$read_from_client = 
32A 11608 {! We will decide whether or not to do this when we support active readers on the server with 
224 11609 {! writers on (muitiple) clients. 
324 11610 {! IF Yist_i = 1 THEN 
32A 11611 {! mmp$purge_all_cache; 
324 11612 {! IFEND,; 
324A 11613 pfte_ pA. locked page := mmc$1p_not_ locked; 
324 11614 IF jio_error = ioc$no_error THEN 
33cC 11615 IF pfte_pA.queve_id >= mmc$pq_first_valid_in_pt THEN 
348 11616 pte pArA.v :: TRUE; 
356 11617 ELSEIF NOT pte_pA.m THEN 
362 11618 mmv$reassignable page _frames.soon := mmv$reassignable_page_frames.soon - 1; 
36E 11619 IFEND; 
36E 11620 pte pr.u := TRUE; 
36E 11621 pte_ p%r.m := TRUE; 
386 11622 ELSE 
386 11623 mmp$unlock rma list _errer (pfti, pfte_p, io_error); 
388 11624 IFEND; 
39C 11625 = ioc$read_page, ioc$read_for server, ioc$read_ahead_on_server = 
393¢C 11626 pfte pA. locked page := mmc$ip_not_ locked; 
39C 11627 IF io_error = ioc$no_error THEN 
3AE 11628 IF pfte_pA.queue_id >= mme$pq_first_valid_in_pt THEN 
3B8 116298 pte pA.v := TRUE; 
3B8 11630 pte _ pr.u : = TRUE; 
3CA 11631 IFEND; 
3CE 11632 ELSE 
3CE 11633 mmpSunlock rma _list_error (pfti, pfte_p, io_error); 
3DE 11634 IFEND ; 
3E2 11635 = ioc$allocate = 
3E2 11636 pfte_ pA. locked page := mmc$ip_not_locked; 
3E2 11637 IF io_error = ioc$no_error THEN 
3F4 11638 IF pfte pA.queue_id >= mmc$pq_first_valid_in_pt THEN 
3FE 11639 pte pr.v : = TRUE; 
408 11640 IFENO; 
40c 11641 ELSE 
40C 11642 mmpSuntock rma_list_ error (pfti, pfte_p, io_error) ; 
41C 11643 IFEND; 
420 11644 = tioc$write page, ioc$write_ locked page, ioc$write_for_server = 
420 11645 IF jotype = ioc$write_ locked page THEN 
42h 11646 IF pfte_p%.queue_id >= mmc$pq_first_valid_in_pt THEN 
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11647 
11648 
11649 
11650 
11651 

11652 
11653 
11654 
11655 
11656 
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11658 
11660 
11661 

11662 
11663 
11664 
11665 
11666 
11667 
11668 
1166S 
11670 
11671 

11672 
11673 
11674 
11675 
11676 


pte _ pA.v :: TRUE; 
IFEND; 
pfte_ pA. locked page := mmc$ip_not_ locked; 
IFENO; 


IF ‘init_io_error <> ioc$no_error THEN 
process write failure; 

ELSEIF pfte_p%.io_error <> ioc$no_error THEN 
process _ rewrite success; 

IFEND; 


ELSE 


mtp$error stop (’MM - bad I0 type unlock rma_list’); 


CASEND ; 
IFEND; 


If the page is no longer tocked (ali I0 compiete), there is some more processing to be done: 


Dequeue all tasks waiting for the 10 to complete. 


IF pfte_ pA.active_io count = O THEN 
WHILE pfte_ pA.task queuve.head <> 0 DO 


tmp$dequeue task (pfte_pA.task_ queue, taskid); 


WHILEND; 


If the page is in the available modified queue and has been sucessfully written to disk, 
the page should be moved to the available queue. (Debugging option allows for avai labie 
queue to be disabled). 


IF (pfte_ p%.queue_id = mmc$pq_avail_modified) THEN 


IF NOT mmv$pt_pA [pfte_pA.pti].m THEN 
IF mmv$no_memory_ buffering THEN 
mmp$delete pt_entry (pfti, TRUE); 
mmp$relink_ page _frame (pfti, mmc$pq_free) ; 
ELSE 
mmp$Srelink page frame (pfti, mmc$pq_avail); 
IFEND; 
IFEND; 


If the page was being used by file server on the SERVER and and has been sucessfully 
written to disk/cilient, remove the page from the shared queue if possible. NOTE that 
the page cannot be removed if it is modified. Also note that since the page is VALID 
the MODIFIED BIT in the page table cannot be examined until the VALID BIT 

is cleared and the page maps purged. 


ELSEIF (pfte_p4.queue_id >= mmc$pq_shared_first) AND (pfte_pA.queue_id <= mmc$pq_shared_last) AND 


(Ciotype = ioc$write_to client) OR (iotype = ioc$write_for_server))} THEN 

pte_ pA.v :: FALSE; 
mmp$sva_purge one _page_map (pfte_pA.sva); {Essential for dual CPU} 
IF pte _pA.m THEN 

pte pA.v ;:= TRUE; 
ELSEIF mmv$free file _server_pages THEN 

mmp$delete pt_entry (pfti, TRUE); 

mmp$relink page _ frame (pfti, mmc$pq_free) ; 
ELSE 

mmp$relink_page_frame (pfti, mmc$pq_avail); 
IFEND; 


IFEND; 
IFEND; 
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628 11703 
628 11704 FOREND /unilock_pages/; 
62C 11705 
62C 11706 ijl_ordinal := pfte_p%.ijl_ordinal; 
62C 11707 imp$get_ijle_p (ijl_ordinal, ijle_p); 
62C 11708 
62C 11709 
62C 11710 { If 310 was a "write" of a local file, dont decrement inhibit swap. 
62C 11711 { If an I0 error occurred on a swapped job, set the task ready so it can Swap in and reclaim 
62C 11712 { its error pages. 
62C 11713 
62C 11714 IF (mf_job_file) AND ((iotype = ioc$write_page) OR (iotype = ioc$write_locked_page)) THEN 
674 11715 decrement_inhibit swap := 0; 
674 11716 IF (init_io_error <> ioc$no_error) AND 
696 11717 (ijle_prA.entry_ status <> jmce$ies_entry free) AND 
696 11718 (ijle_p%.swap_status >= jmc$iss_job_io_complete) THEN 
696 11719 tmp$set_task_ready (ijle_p%.job_monitor_taskid, © {readying task_priority}, 
6B2 11720 tmc$rc_ready conditional wi); 
6B2 11721 IFEND; 
6B4 11722 IFEND; 
6B4 11723 
6B4 11724 
6B4S 11725 IFEND; { Not Swap io } 
6B4 11726 
6B4 11727 { The active_io_page_count must always be accurate but the number of active_io_requests can sometimes 
6B4 11728 { be incorrect. If pages are moved from a JWS to the shared working set, the active_io_ page _ count is 
6B4 11729 { modified to reflect the move but the active_io_ requests count can not be modified because it is not 
6B4 11730 { known now many I0 requests were made. Therefore, the code here must ensure active_io_ requests does 
6B4 11731 { not become negative and if the active_io_active count becomes zero then zero active_io_ requests. If 
6B4 11732 { active_io_count is non-zero then we know there must be at least one I10 request outstanding therefore 
6B4 11733 { do not decrement active_io_requests if it is mot greater than one. 
6B4 11734 { This will correct the active_io_requests count if it was incorrect. The only use of the requests 
684 11735 { count is to slowdown the task if it initiates too many I10 requests while at MAXWS. 
6B4 11736 
6B4 11737 IF ijle_ pA.active io page count < list_length THEN 
6C4 11738 mtp$error_stop (’MM-NEGATIVE 10 COUNT IN UNLOCK RMA’); 
6E4& 11739 IFEND; 
6E4 11740 
6E4 11741 ijle_pA.inhibit swap_count := ijle_pA.inhibit swap_count - decrement_inhibit_ swap; 
6E4 11742 ijle_pA.active_io_ page_count := ijle_pA.active_io page _ count - list_ length; 
6E4 11743 IF ijle_pA.active_1o_ page count = © THEN 
704 11744 ijle_p’.active _jio_ requests := 0; 
FOE 11745 ELSEIF ijle_pA.active_io_ requests >» 1 THEN 
716 #11746 1jyle_pA. active io requests := ijle_pA.active_io_requests - 1; 
71C #+11747 IFENOD; 
71C #11748 IF (ijle_pA. inhibit _swap_count = 0) AND (ijle_pA.notify _swapper_when_io_complete) THEN 
730 11749 jsp$io_complete (ijle_p); 
740 11750 IFEND; 
740 #11751 
740 11752 count := mmv$reassignable_page_frames.now - initial _reassignable_now; 
740 11783 WHILE (count >» 0) AND (mmv$memory_ wait _queve.head <> 0) DO 
756 11754 tmp$dequeue_ task (mmv$memory wait queue, taskid); 
76E 11755 count := count - 1; 
76E 11756 WHILEND; 
77C #11757 
77C #11758 mmp$check_queues; 
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PROCEND mmp$Suniock rma_list; 


{This procedure is called to process an 10 error on a page-in request. 


PROCEDURE mmp$untock rma_list_error 
{ pfti: mmt$page_frame_index; 
pfte_p: Ammt$page_ frame_table_entry; 
io_error: iot$io_error); 


VAR 
delete pt_entry ok: boolean, 
ijle_p: Aygmt$initiated job_list_entry, 
monitor fault: ost$monitor_ fault, 
sac_p: Ammt$segment_access condition, 
sdte_segment_number: ost$segment, 
sdtxe_p: Ammt$segment_descriptor_extended, 
status: syt$monitor_status, 
taskid: ost$global_task_id, 
xcb_p: Aost$execution_control biock; 


monitor fault.identifier := mmc$segment_fault_processor_id; 
sac _p := #LOC (monitor_fault.contents) ; 

sac_pA.identifier := mmc$sac_io_read_error ; 
delete pt _entry ok := TRUE; 


tmp$get_taskid_from_task_queue (pfte_pA.task_ queue, taskid); 
WHILE taskid <> tmv$null_global_task_id DO 

tmp$get_xcb_p (taskid, xcb_p, ijle_p); 

IF xcb_p <> NIL THEN 

IF io_error = ioc$unrecovered error_unit down THEN 
mmp$process volume_unavailable (xcb_p, FALSE) ; 

ELSEIF io_error = ioc$server _allocation_error THEN 
sdte_segment_nmumber :: #SEGMENT (xcb_p4.page_wait_info.pva) ; 
sdtxe_p := mmp$get_sdtx_entry_p (xcb_p, sdte_segment_number ); 
sdtxe_ pA.assign_active := 0; 
tmp$set_monitor_flag (taskid, mmc$mf_segment_mgr_fiag, status); 
IF (xcb_pA.xp.trap_enable <> osc$traps_enabled) OR (xcb_pA.xp.p_register.pva.ring = 1) THEN 

delete pt_enmtry ok := FALSE; 
mmv$pt_pA [pfte_ pA.pti].v := TRUE; 
IFEND; 

ELSEIF io_error = ioc$server_has_terminated THEN 
sac _pA.identifier :* mmc$sac_file_server terminated; 

IF xcb pA.page wait _info.pva <> NIL THEN 
sac_p4.segment := xcb_p4.page _wait_info.pva; 
tmp$send_monitor_ fault (taskid, #LOC (monitor fault), TRUE); 
IFEND; 
ELSE f{io_error <> ioc$unrecovered_error_unit_ down, io error <> ioc$server_allocation_error} 
IF xcb_ pA.page wait _info.pva <> NIL THEN 
sac_p4.segment := xcb_ pA.page wait_info.pva; 
tmp$send_ monitor fault (taskid, #LOC (monitor fault), TRUE); 
IFEND; 
IFEND; 
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TAE 11813 
1AE 11814 imp$Sunlock_ajl (ijle_p); 
264 11815 IFEND; 
264 11816 
264 11817 tmp$find_next_queued task (taskid); 
278 11818 WHILEND ; 
284 11819 
284 11820 IF NOT delete pt_entry_ ok THEN 
288 11821 RETURN; 
28A 11822 IFEND; 
28A 11823 
28A 11824 mmp$delete_pt_entry (pfti, TRUE); 
29E 11825 mmp$relink_page_ frame (pfti, mmc$pq_free) ; 
2B4 11826 
2B4 11827 PROCEND mmp$unlock_rma_list_error ; 
oO 11828 
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This request is used by physical I0 to leck one or more page frames 

before doing 109 to the page frames. Page frames being accessed by 

the IO0U must be locked to prevent memory manager from reassigning the 

page frame while 1!10 is active. If page frames are not assigned to 

the entire range of addresses specified in the request, no frames 

will be liaocked and an error code will be returned. 

The ‘active _io_ page count’ for the job owning the page frames is incremented. 
The ‘inhibit swap _ count’ is incremented if the 10 is not a write to a 

local file. The counts are decremented when the page frames are unlocked. 


NOTE: ALL pages locked MUST belong to the same segment. 
THE LIST THAT IS LOCKED MUST BE THE SAME LIST THAT IS UNLOCKED. 
64K byte page size is not currently supported. 


MMPSBUILD LOCK RMA_LIST (BUFFER_DESCRIPTOR, LENGTH, IO_ TYPE, LIST_P, 
LIST_LENGTH, STATUS); 


BUFFER _ DESCRIPTOR: (input) This parameter specifies the pages of memory 


to be locked. All pages must belong to the same segment. 
LENGTH: (input) This parameter specifies the number of bytes to be 
locked. 


10 _ TYPE: (input) This parameter specifies the type of I0 that will 
take place into the page frames. 

LIST_P: (input) This parameter points to an array into which this 
procedure returns a list of the real memory addresses (RMA) of 
the pages locked. One entry is required in this list for 
each page frame containing portions of the area being 
locked. The list that is locked by mmp$bui Id_lock_rma_list 
must be the same list that is unlocked by mmp$unlock rma_list. 
Several locked lists CANNOT be grouped together to be unlocked 
by mmp$unlock_ rma_list. 

LIST _LENGTH: (input) This parameter specifies the number of entries 
in the RMA list. If the length of the RMA list exceeds the 
length required, the ‘length’ field in the unused RMA list 
entries will be set to zero. If the rma list is not large enough, a 
fatal monitor abort will occur. 

STATUS: (output) This parameter specifies the request status. 

The only error code returned is mme$page_frame_not_assigned. 
All other errors will result in a call to mtp$error_stop. 


PROCEDURE [XDCL] mmp$build_lock_rma_list 
( buffer descriptor: mmt$buffer_ descriptor ; 
Tength: ost$byte_count ; 
iotype: iot$io_ function; 
list_p: Ammt$rma_list; 
list length: mmt$rma_list length; 
VAR status: syt$monitor_ status) ; 


VAR 
found: boolean, 
hash_count: 1 .. 32, 


-08-21 13:33:34 
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© 11887 ijle_p: AjmtS$initiated_job_list_entry, 
© 11888 ijl_ordinal: jmt$ijl_ordinal, 
© 11888 index: integer, 
© 11890 io_error: iot$io_error, 
Oo 11891 ioid: mmt$io_identifier, 
© 11892 if_asid: ost$asid, 
o 11893 purge map: boolean, 
© 11894 Tist_i: mmt$rma_list_index, 
o 11895 mf job_file: boolean, 
© 11896 osv$keypoint_periodic_tpid: [XREF] integer, 
© 11897 page count: integer, 
© 11898 page _ offset: O .. 65535, 
o 11899 pfte_p: Ammt$page_ frame _table_entry, 
o 11900 pfti: mmt$page_frame_index, 
o 11901 pti: integer, 
© 11902 spde_p: Ajst$swapped page _ descriptor, 
© 11903 Sva: ost$system_virtual_address; 
o 11904 
Oo 11905 
© 11906 status.norma 7:2 TRUE; 
8 11907 Fist i :F 1; 
8 11908 
8 11909 
8 11910 { Lock the pages depending on format of the buffer descriptor. 
8 11911 
8 11812 CASE buffer _descriptor.buffer_ descriptor _ type OF 
2E 11913 
2E 11914 = mmc$bd_paging io, mmc$bd_ explicit _io = 
2E 11915 Sva :: buffer descriptor .sva; 
2E 11916 page _ offset := sva.offset MOD osv$page_ size; 
2E 11917 page count :=: ((page_offset + length - 1) DIV osv$page_size) + 1; 
2E 11918 IF (lTist_length < page count) OR (list_lJength = 0) THEN 
64 11919 mtp$error_stop (‘MM - lock rmal, list too small’); 
84 11920 IFEND; 
84 11821 purge map := FALSE; 
84 11922 
84 11923 /ip/ 
84 11924 WHILE TRUE DO 
86 11925 IF iotype <> ioc$keypoint_io THEN 
so 11826 #HASH_SVA (sva, pti, hash_count, found); 
$2 11927 IF NOT found THEN 
AGB 11828 EXIT /ip/ 
AA 11929 IFEND; 
AA 11930 pfti := (mmv$pt_p’ [pti].rma * 512) DIV osv$page_size; 
cc 11831 ELSE 
Cc 11932 pfti := osv$keypoint_control.cpus [osv$keypoint_periodic_ipid].io_pfti [list_il]; 
EC 11933 IFEND; 
EC 11934 #KEYPOINT (osk$debug, pfti * osk$m, mmk$build_lock_rmal); 
F4 11935 pfte_ p := AmmvS$pft_pA [pFftil; 
F4 11936 pfte pA. active _io count := pfte_ pA.active_io_ count + 1; 
F4 11937 ?2I1F mmc$debug_ rma_list THEN 
F4 11938 IF list_i = 1 THEN 
120 11939 ijl_ordinal :: pfte pA.ijl_ordinal; 
128 11940 ELSEIF ijt_ordinal <> pfte_pr.ijl_ordinal THEN 
13C 11941 mtp$error_ stop (*MM - lock rmal, mixed ijl ordinal in lock’); 
18C 11942 IFEND; 
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IF (Ciotype = ioc$write page) OR (iotype = ioc$write_locked page)) AND NOT mmv$pt_p4 
mtp$error_ stop (’MM - lock rmal, write page error’); 
IFEND; 
IF (iotype = joc$read_page) AND ((pfte_pA.queue_id < mmc$pq_first_valid_in_pt) 
v) THEN 
mtp$error_ stop (‘MM - lock rmal, read page error’); 
IFEND; 
?IFEND; 


CASE iotype OF 


= ioc$explicit_read, ioc$read_uft, ioc$read_mass_storage, ioc$explicit_write, 


ieoc$initialize sectors, ioc$explicit _read_no_purge = 
IF pfte_pA.queue_id = mmc$pq_avail THEN 


mmp$relink_ page frame (pfti, pfte_pA.aste_pA.queue_id); 
mmv$pt_ pr [pti] .v := TRUE; 
IFEND; 


= ioc$write_to_client = 

IF pfte_p%. locked page = mmc$ip_page_in_lock THEN 
pfte_pA.active_io_ count := pfte_ pA.active_io_count - 1; 
EXIT /1ip/; 

IFEND; 

IF pfte_ pA.queue_id = mmc$pq_avail THEN 
mmp$relink page frame (pfti, pfte_pA.aste pA.queue_id) ; 
mmv$pt_pA [pti].v := TRUE; 

IFEND; 

= ioc$read_from_client = 
IF NOT mmv$pt_p’ [pti].v THEN 
pfte pA. locked page :: mmc$ 1p_page_in_1lock; 
IFEND; 
ioc$no_io = 
ioc$read_page, ioc$read_for_server, ioc$read_ahead_on_server = 


pfte pA. locked page := mmc$1p_page_in_lock; 
= joc$allocate = 
pfte_ pA. locked page := mmc$lp_server_allocate_lock; 
= ioc$write page, ioc$write_for_server = 
mmv$pt_ pA [pti].m :: FALSE; 
IF pfte_p%.queue_id = mmc$pq_avail_modified THEN 
mmv$reassignable_page_frames.soon := mmv$reassignable_page_frames.soon + 
ELSEIF mmv$pt_p4 [pti].v THEN 
purge map := TRUE; 
IFEND; 
= ioc$write locked _ page = 
pfte pA. locked page := mmc$1p_write_protected_ lock; 


IF pfte_p%.queue_id = mmc$pq_avail_ modified THEN 
mmp$relink page_frame (pfti, pfte_pA.aste_pA.queue_id); 
ELSEIF mmv$pt_p’ [ptil].v THEN 


mmv$pt_pA [pti].v := FALSE; 
Purge map := TRUE; 
IFEND; 


mmv$pt_ pA [pti].m :: FALSE; 
= joc$keypoint_io = 

mmp$relink_page_frame (pfti, mmc$pq_free) ; 
ELSE 

mtp$error_ stop (‘MM - bad I0 type lock rma_list’); 
CASEND; 


11998 {!!! 2I1F mmc$debug rma_lTist THEN 
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46E 1199895 IF (pfte_pA.queue_id <= mmc$pq_last_reassignable) AND (iotype <> ioc$keypoint_io) THEN 
480 12000 mtp$error_ stop (‘MM - Tried to ioc$write_page in AVAIL’); 
4AO 12001 IFEND; 
4AO 12002 {!i!! ?IFEND ; 
&AO 12003 
4AQ 12004 Tist_p4 [list_il.rma ::= pfti * osv$page_size + page offset; 
4Ao 12005 page_ count := page count - 1; 
4A0 12006 IF page_count <= © THEN 
4CO 12007 Tist_pA [list_i]l.length :=+ ({buffer descriptor .sva.offset + length - 1) MOD osv$page_size) - 
4cCo 12008 page offset + 1; 
aco 12009 jmp$get_ijle_p (pfte_p4.ijl_ordinal, ijie_p); 
4CO 12010 ijle_pr%.active_io_ page count := ijle_ prA.active_io page count + lTist_length; 
4Co 12011 ijle pA.active_io_ requests := ijle_p%.active_io requests + 1; 
*WARN 12012 IF (pfte_p4.aste_pA.sfid.residence <> gfc$tr_job) OR 
542 12013 (Ciotype <> ioc$write page) AND (iotype <> ioc$write_ locked _page)) THEN 
542 12014 ijle_ pA. inhibit _Sswap_count := ijle_pA.inhibit_swap_count + Tist_length; 
554 12015 IFEND; 
554 12016 IF list_i < 1ist_1length THEN 
55C 12017 1ist_paA [list_i + 1).length :=: 0; 
566 12018 IFEND; 
566 12019 IF purge map THEN 
S6A 12020 mmp$purge_all_page_map; 
586 12021 IFEND; 
586 12022 RETURN; {<-----]} 
588 12023 IFEND; 
588 12024 list_pA [list_i].length := osv$page_size - page_offset; 
588 12025 Sva.offset := sva.offset + osv$page_size; 
588 12026 page_offset := 0; 
588 12027 Vist_i := list_i + 1; 
588 12028 WHILEND /1p/; 
§CO 12029 
SCO 12030 


5CO 1206031 {Control gets here only if a page frame is not assigned to a page that is heing locked. 


5CO 12032 {any) that nave already been locked. 


§8CO 12033 

§CO 12034 IF list_i > i THEN 

§C4 12035 '  jmp$get_ijle_p (pfte_pA.ijl_ordinal, ijle_p); 

§C4 12036 ijle_pr.active_io_ page count := ijle_ pA.active_io_ page count *+ list_i - 1; 
§C4 12037 ijle pA.active_io_requests :: ijle_p*.active_io_requests + 1; 

§C4 12038 IF (pfte_pr.aste_pA.sfid.residence <> gfc$tr_job) OR 

61E 12039 ((iotype <> ioc$write_ page) AND [(iotype <> ioc$write_locked page)) THEN 
61E 12040 ijle_pA.inhibit swap count := ijle_pA.inhibit_swap_count + Tist_i - 1; 

61E 12041 mf_job_file := FALSE; 

636 12042 ELSE 

636 12043 mf_job_file := TRUE; 

S63A 12044 IFEND; 

634 12045 jo_error :2 joc$no_error ; 

63A 12046 mmp$untock rma_list (ioc$no_io, list _p, list_i - 1, ioid, mf_job_file, io _error, status); 
67C 12047 IFEND; 

67C 12048 mtp$set_status abnormal (’MM’, mme$page_frame_not_assigned, status); 


696 12049 

6936 12050 

696 12051 > mmc$bd_job_swapping_ io = 

696 12052 

696 12053 

696 12054 { Lock pages for job swapping io. 
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696 12055 

696 12056 1jgl_ordinal :: buffer_descriptor.ijl_ordinal; 

696 12057 imp$get_ijle_p (ijl_ordinal, ijie_p); 

€96 12058 page count := list_length; 

696 12059 ijle_ pA. inhibit _swap_ count := ijle_pA.inhibit_swap_count + page count; 

6SE 12060 ijle_pA.active_io_page_ count := ijle_pA.active_io_page_ count + page count; 

696 12061 ijle_pA.active_io requests : = ijle_pA.active_io_requests + 1; 

696 12062 

696 12063 IF ijle_pA.swap_io _control.spd_index = 0 THEN 

6GE& 12064 ijle_p”.swap_io_control.next_queue_id := SUCC (mmc$pq_job_fixed) ; 

6E8 12065 ijle_ pA.swap_io_control.next_ pfti = jijle_p%.job_page_queve_list [mmc$pq_job_fixed].1ink.bkw; 
6E8 12066 ijle_pA.swap_io_control.stop pfti => ijle_p%.swap_io_control.swap_file_ descriptor pfti; 
6E8S 12067 i1jle_pA.swap_data.swapping_io_error := jioc$no_error; 

706 12068 IFEND; 

706 12069 

706 12070 jf _asid := ijle_pA.job_fixed_asid; 

706 12071 

706 12072 WHILE TRUE DO 

JOE 12073 IF ijle_pA.swap_io_controi.next_pfti = ijle_p%.swap_io_control.stop pfti THEN 

71E 12074 IF ijle_p4%.swap_io_control.next_queue_id = mmc$pq_job_fixed THEN 

728 12075 ijle_ pA.swap_io_control.next_pfti := ijle_p4A.swap_io_control.swap_file descriptor pfti; 
736 12076 ELSEIF (ijle_pA.swap_io_control.next_queue_id = SUCC (mmc$pq_job_fixed)) AND 

742 12077 (ijle_pA.swap_io_control.stop_pfti = 0) THEN 

742 12078 mtp$error_ stop (‘MM - error in locking swap file pages’); 

762 12079 ELSE 

762 12080 ijle_ pA.swap_io_control.stop pfti = O; 

762 12081 ijle_pA.swap_io_control.next pfti > ijle_ pA. job_page queue list 

784 12082 [ijle_pA.swap_io_control.next_queue_id]. link. bkw; 

784 12083 IFEND; 

784 12084 IF ijle_pA.swap_io_control.next_queue_id = UPPERVALUE (mmt$ job_page_ queue index) THEN 
794 12085 ijle_pA.swap_io_control.next_queue_id := mmc$pq_job_fixed; 

7AO 12086 ELSE 

TAO 12087 ijle_p4.swap_io_control.next_queue_id := SUCC (ijle_p4.swap_io_control.next_queue_id) ; 
TAG 12088 IFEND; 

TAB 12089 IFEND; 

TAB 12090 

7A6 12091 WHILE ijle_ p%.swap_io control.nmext_ pfti <> ijle_pA.swap_io_control.stop_pfti DO 

7C2 12092 pfte_p := AmmvS$pft_pA [ijle_pA.swap_io_control.next_pfti]; 

702 12083 {!!! ?IF mmc$debug_rma_list THEN 

702 12094 IF ijl_ordinal <> pfte_pA.ijl_ordinal THEN 

7F2 12095 mtp$error_ stop (’MM - mixed ijl ordinal in swap’); 

812 12096 IFEND; 

812 12097 { The active_io_count check is being disabled until job shared pages CANNOT be in a working set 
&612 12098 { at all after a second attach of a job shared file. 

812 12099 { IF pfte_ pA.active_io_count <> © THEN 

812 12100 { mtp$error_ stop (’MM - active I0 on swapout’); 

812 12101 { IFEND; 

812 12102 {!1!! ?IFEND; 

812 12103 IF jiotype = ioc$swap_out THEN 

81C 12104 spde_p :: Aijle_ pA.sfd_pA.swapped_page_ descriptors [ijle_p”.swap_io_control.spd_index]; 
81C 12105 spde_pA.pft_entry := pfte_ pA; 

83C 12106 spde_pA.page_table_entry := mmv$pt_pA [pfte_pA.ptil; 

83C 12167 spde_pA.ast_entry := pfte pA.aste pA; 

862 12108 


862 12109 { The entry_updated field in the swapped page descriptor is set to TRUE for job fixed pages, 


FALSE for 


862 12110 { all other pages. Setting the field helps reset _swapped_job_mm_tables in Swapper to differentiate 


(iF 
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862 12111 { between job fixed pages and other fixed pages when checking/changing ASIDs. 
862 12112 
862 12113 spde_pA.entry_updated :: (spde_pA.pft_entry.sva.asid = jf_asid); 
862 12114 
862 12115 IF syv$perf_keypoints enabled.memory keypoints THEN 
87E 12116 #KEYPOINT (osk$performance, osk$m * ijle_pA.swap_io_control.next_pfti, 
88E 12117 ptk$pfti_for_swapout); 
88E 12118 IFEND; 
88E 12119 IFEND ; 
88E 12120 
88E 12121 list_pA [list_i].rma := ijle_pA.swap_io_control.next_pfti * osv$page_size; 
88E 12122 Tist_pA [list _i].length ::= osv$page_size; 
88E 12123 
88E 12124 1jle_pA.swap_io_comtrol.spd_index := ijle_pA.swap_io_control.spd_index + 1; 
8&8E 12125 tTjle pA.swap_io_control.next pfti :* pfte pr. 1ink. Dkw; 
88E 12126 
88E 12127 page count := page count - 1; 
88E 12128 IF page_counmt = 0 THEN 
8C6 12129 RETURN ; 
8C& 12130 IFEND; 
g8C8& 12131 Tist_i := Vist_i + 1; 
8C8& 12132 WHILEND; 
8E2 12133 
8E2 12134 WHILEND ; 
8EA 12135 ELSE 
BEA 12136 mtp$error_stop (‘MM - bad bufr desc in lock rma_list’); 
90A 12137 CASEND ; 
90A 12138 
§9O0A 12139 mmp$check_queues; 
S91E 12140 
91E 12141 PROCEND mmp$bui ld_lock_rma_1list; 
0 12142 
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{ 


{ Purpose: 


Pres en PPRE PR ESPINER ES ES eS eS re em om 


This procedure is a build_lock_rma_list routine that is customized for NOS/VE tape 1/0. 
This allows a11 the pages associated with a tape request to be locked in one call from 
iom$tape queue manager _mtr. This replaces the use of mmp$build_ lock rma_list, which 
required up to 30 calls for write requests and 60 calls for read requests. 


Notes: 


Although buffer descriptor is mot a parameter to this routine, the buffer descriptor_type 
is assumed to be mmc$bd_explicit_io. Tape I/0 does not use anything else. If any changes 
are made to mmp$build_lock_ rma_list relating to mmc$bd_explicit_io, those changes may 

aiso be needed here. 


The only io type values ever used for locking pages are ioc$explicit read and 
ioc$explicit_ write. When the pages are unlocked, io_type can be ioc$explicit_read_no_purge 
if cache purge is not required. 


The parameter tape_request_p points to the wired tape request for which pages need to 

be locked and rma lists built. The request is both an input and output parameter. 

For writes and reads, the data buffers for the request are locked. For reads the 

first store transfer count buffer is aiso locked. Since all transfer count buffers must 
be on the same memory page, it iS not necessary to lock more than one. 


If page frames are not assigned to the entire range of addresses specified in the 
request, no frames are locked and an error code will be returned. 


PROCEDURE [XDCL] mmp$build_lock_rma_list_tape [ 


tape_request_p: Aiot$wired tape_request ; {input/output 
VAR status: syt$monitor_status) ; 


VAR 
command_index: iot$tape_command_index, 
found: boolean, 
hash_count: 1... 32, 
ignore status: sytS$monitor_status, 
ijle_p: Ajmt$initiated_job_list_entry, 
ijl_ordinal: jmt$ijl_ordinal, 
io error: iot$io_error, 
ioid: mmt$io_identifier, 
length: ost$byte_count, 
list _i: mmt$rma_list_index, 
list _p: Ammt$rma_list, 
toop_count: 1... 2, 
loop _count_index: 1 .. 2, 
page _ count: integer, 
page _ offset: © .. 65535, 
pfte_p: Ammt$page_frame_table_ entry, 
pfti: mmt$page frame_index, 
pti: integer, 
pyva: Acell, 
rma: integer, 7 
sva: ost$system_virtual address, 
total_list_entries: mmt$rma_list_ index; 
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Oo 12201 status.normal := TRUE; 
& 12202 total_list_entries :=: 1; 
8 12203 list _p := #LOC (tape_request_p’4.wired_command_heap_pA.rma_list [1]); 
1¢ 12204 Toop count <= 1; 
1€ 12205 IF tape request _pA.io_ type = ioc$explicit_read THEN 
2C 12206 loop_count := 2; { must lock data buffer(s) and store transfer count buffer 
30 12207 IFEND,; 
30 12208 
30 12209 FOR lToop_count_index : = 1 TO looep_count oO 
36 12210 
36 12211 /loeck_loop/ 
36 12212 FOR command_index :+ 1 TO tape _ request pA.no_of data commands DBO 
46 12213 VESti2 SOT; 
46 12214 IF tape request_p%.io_type = ioc$explicit_read THEN 
54 12215 IF loop_count_index = 1 THEN {data buffer 
58 12216 Tength :=: tape request p%.max_input count; 
§8 12217 pva := tape_request_pA.wired read _description_pA [command_index].buffer area; 
6C 12218 ELSE {store transfer count buffer 
6C 12219 Tength := 8; 
6C 12220 pva :: tape request _pA.wired_ read _description_p% [command_index].block transfer length; 
7A 12221 IFEND; 
7E 12222 ELSE f{ioc$explicit_write 
7E 12223 length :: tape _request_pA.wired_ write _description_p4 [command_index] .transfer_ length; 
7E 12224 pva :5 tape _request_p4.wired write description_pA [command_index] .buffer area; 
$2 12225 IFEND; 
92 12226 mmp$xtask_pva_to sva (pva, sva, status); 
AE 12227 IF NOT status.normal THEN 
BE 12228 IF total _list_entries > 1 THEN 
BA 12229 io_error := ioc$no_error ; 
BA 12230 mmp$uniock rma_list (ioc$no_io, list _p, total_list_entries - 1, ioid, 
F& 12231 {MF_JOB_FILE} FALSE, io_error, ignore_status) ; 
F& 12232 IFEND; 
F& 12233 RETURN; 
FA 12234 IFEND ; 
FA 12235 
FA 12236 page_offset := sva.offset MOD osv$page_size; 
FA 12237 page _count ::= ((page_offset + length - 1} DIV osv$page_size) + 1; 
FA 12238 IF page_count + total_list_entries - 1 > tape request pA.allocated_ address pair count THEN 
130 12239 mtp$error stop (‘MM - tape lock rma list, list too small’); 
14C 12240 IFEND; 
14C 12241 
14C 12242 REPEAT 
14C 12243 #HASH_SVA (sva, pti, Nash_count, found); 
154 12244 IF NOT found THEN 
TEA 12245 


164 12246 { A page frame is not assigned to a page that is being locked or the page frame is mot valid. 


164 12247 { Unlock the pages (if any) that nave already been locked and return the error 
164 12248 { mme$page_frame_not_assigned to iom$tape_queue_manager_mtr, who will in turn return to job mode 
164 12249 [{ where all the pages will be touched and the monitor request reissued. 
16A 12250 
164A 12251 IF totai_list_entries > 1 THEN 
170 12252 IF list_i > 1 THEN 
174 12253 imp$get_ijle_p (pfte_p%.ijl_ordinal, ijle_p); 
174 12254 ijle_pA.inhibit_swap_counmt := ijle pA.inhibit swap _count + JTist_i - 1; 
174 12255 ijle_p%.active_io_page_count :: ijle_pA.active_io_page_ count + lTist_i - 1; 
174 12256 ijle_pr.active_io_ requests :* ijle pr.active_io_ requests + 1; 
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1BE 12257 IFEND; 
1BE 12258 io_error :: ioc$no_error; 
1BE 12259 mmp$untock_ rma_list (ioc$no_io, list_p, totai_list_entries - 1, ioid, 
1FA 12260 {MF_JOB_FILE} FALSE, io_error, status); | 
1FA 12261 IF NOT status.normal THEN 
204 12262 mtp$error_stop (’MM - lock tape rma list, unlock error’); 
220 12263 IFEND; 
222 12264 IFEND; 
222 12265 mtp$set_status_abnormal (‘’MM’, mme$page_frame_not_assigned, status); 
222 12266 RETURN; {<--+--- } 
230 12267 IFEND; 
230 12268 
230 12269 pfti := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size; 
230 12270 pfte_p := Ammv$pft_pA [pftil]; 
230 12271 pfte pA. active_io_count := pfte pA.active_io_ count + 1; 
230 12272 
230 12273 ?7I1F mmc$debug rma_list THEN 
230 12274 IF loop_count_index = 1 THEN 
27C 12275 IF total _list_entries = 1 THEN 
280 12276 ijl_ordinal := pfte_ pA.ijl_ordinal; 
288 12277 ELSEIF ijl_ordinal <> pfte_p4.ijl_ordinal THEN 
29C 12278 mtp$error_ stop (’MM - tape lock rma list, mixed ijl ordinal in tock’); 
2BC 122795 IFEND; 
2C0O 12280 IFEND; 
2C0O 12281 ?IFEND; 
2C0 12282 
2CO 12283 Tist_pA [total _list_entries].rma := pfti * osv$page_size + page_offset; 
2C0 12284 page count :5 page _ count - 1; 
*WARN 12285 IF page count > O THEN 
2EO 12286 ?IF mmce$debug rma_list THEN 
2EO 12287 IF loop _count_index = 2 THEN 
2E6 12288 mtp$error_stop (‘MM - tape lock rma list, transfer count buffer more than 1 page’); 
304 12289 IFEND; 
304 12290 ?IFEND; 
304 12291 list_p” [total_list_entries].length := osv$page_size - page_offset; 
304 12292 sva.offset :* sva.offset + osv$page size; 
304 122393 page_ offset := 0; 
*WARN#® 12294 Tist_i :2 list_i + 1; 
338 122395 ELSE 
338 12296 list pA [total_list_entries].length := ((sva.offset + length - 1) MOD osv$page_size) - 
338 12297 page_offset + 1; 
338 12298 imp$get_ijle_p (pfte p%.ijl_ordinal, ijle_p); 
338 12298 ijle_p4%.inhibit_swap_count :: ijle_pA.inhibit_swap_count + list_i; 
*WARN# 12300 ijle_pA.active_io_page_ count := ijle_pA.active_io_page_ count + list_i; 
39E 12301 IFEND; 
39E 12302 total_list_entries := total_list_entries + 1; 
3SE 12303 UNTIL page_count <= 0; 
3BO 12304 
3BO 12305 i#real_memory_address (Alist_pA [total_list_entries - list _i], rma); 
3D6 12306 IF tape request _pA.io type = ioc$explicit read THEN 
3E2 12307 IF loop_count_index = 1 THEN 
3E6 12308 tape_request_pA.request.tape_command [command_index * 2].address : = rma; 
3E6 12309 tape_request_pA.request.tape command [command_index * 2].length := list_i * &; 
402 12310 ELSE 
402 12311 tape_request_ pA.request.tape_command [command_index * 2 + 1].address ;=: 
402 12312 list _pA [total_list_entries - 1].rma; is 


SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 88102 1889-08-21 


MMPSBUILD_ LOCK _RMA_LIST_TAPE - Build and lock pages defined by tape request 


402 12313 EXIT /lock_loop/; 
41C 12314 IFEND; 
420 12315 ELSE { ioc$explicit_write 
420 12316 tape_request_pA.request .tape_ command [command_index * 2 + 1].address := rma; 
420 12317 tape _ request pA.request .tape command [command_index * 2 + 1].length = list i * 8; 
438 12318 IFEND; 
438 12319 FOREND /1lo0ck_loop/; 
43C 12320 
43C 12321 { Increment active_io_requests in the ijle entry that was used in the preceding trip thru 
43C 12322 { the above FOR loop. Since al11 pages must be in the same segment, the ijle pointer is 
43C 12323 { the correct one. 
43C 12324 
43C 12325 ijle_ pA.active_io_requests :: ijle_pA.active_io_requests + 1; 
43C 12326 
43C 12327 FOREND; 
44E 12328 
44E 12329 { The following check is necessary in the case of error recovery. In that situation, 
44E 12330 { the number of biocks being retried may be less than the original and therefore, the 
44E 12331 { total_list_entries will be less than the amount allocated. For performance reasons, 
44E 12332 { a new allocated_address_ pair_count is not re-calculated before retrying the I0. 
44E 12333 
44E 12334 IF total_list_entries - 1 < tape request _p’.allocated address pair_count THEN 
4SE 12335 list_pA [total_list_entries].length := 0; 
464 12336 IFEND; 
464 12337 
460A 12338 tape _ request _ pA.1ist_p := l1ist_p; 
460A 123398 tape _ request _p’.address_ pair_count := total _ list_entries - 1; 
46A 12340 
460A 12341 PROCEND mmp$build_lock_rma_list_tape; 
0 123482 
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{ 


If pages of a segment were being kept in a jgws, but are mow going to be kept 

in the global queue, it 1S necessary to remove all pages of the segment from 

thee jws. This procedure is calted to remove the pages when a job shared file 
segment is opened and more than one user has the file attached. 

The swap state of the job the pages are being removed from (which is not the 

job that issued the monitor request) must be considered. 


If the job is executing or ina "safe" swap status, page will be removed. If 
swapout I/0 is active, the monitor request will be reissued and a task switch 
forced (the request will have to wait until the I/80 nas completed). If the 


job iS Swapped compietely out, a delayed swapin bit will be set so that the 
pages will be removed when the job swaps back in. 

NOTE: This request is usually issued because a second user has attached a 
read only file and the file is now being shared. The request is also used 

to remove pages from the JWS when the fiush_pages request for a detach_file 
fails. When that happens the FDE for the file is turned into a global_shared 
file. The AST entry and all pages must reflect that the file is shared. 

ALSO NOTE: In the flush-detach fail case, the job which has the pages in 

its working set cannot be swapped out, because it is issuing the monitor 
request. 


PROCEDURE mmp$remove_jws_ to _shared_pages 
( fde_p: gft$locked file _desc_entry_p; 
cst_p: Aost$cpu_state tablie; 
VAR rb: mmt$rb_ ring! segment _request ) ; 


VAR 
asid: ostS$asid, 
aste_p: Ammt$active_segment_table_entry, 
count removed: integer, 
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dsw_job_shared_asid_changed: [STATIC] jmt$delayed_swapin_work := [jmc$dsw_job_shared_asid_ changed], 


ijle_p: AjmtS$initiated_job_list_entry, 

i: integer, 

inhibit 10: boolean, 

jws_ijl_ordinal: jmt$ijl_ordinal, 

next pfti: mmt$page_frame_index, 

pfti: mmt$page_ frame_index, 

pfte_ p: Ammt$page_ frame_tabie_entry, 
queve_id: mmt$page_frame_queue_id, 

sdte_p: Ammt$segment_descriptor, 
System_ijle_p: Ajmt$initiated_job_list_entry; 


rb.status.nmormal :+ TRUE; 
aste_p := Ammv$ast_pA [fde_pA.asti]; 


The file may already be shared. In that case nothing needs to be done. 


IF (aste_pA.queue_id > mmc$pq_shared_last) THEN 
jws_ijl_ordinal := aste_pA.ijl_ordinal; 
IF NOT (jmp$ijl_block_valid (jws_ijl_ordinal)) THEN 
RETURN; 
IFEND; 


jmp$get_ijle_p (jws_ijl_ordinal, ijle_p); 
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5A 12401 { If Swapout I/0 is active, cause the task to cycle until the swapout I/0 has completed. 
SA 12402 { Do not change any AST fields now if the request has to be reissued. 
SA 1240603 
SA 12404 IF (ijle_p4A.swap_status >=: jmc$iss_initiate_swapout_io) AND (ijlie_p4.swap_status <= 
8A 12405 imc$iss_swapout_io_complete) THEN 
8A 12406 
8A 12407 tmp$reissue_monitor_ request ; 
92 12408 tmp$cause_task_switch; 
sc 12409 
9C 12410 ELSE 
gc 12411 
$C 12412 { The pages of this segment were being kept in a JWS queue but are now going to he kept in 
9€ 12413 { one of the shared queues, all pages must be removed from the JWS. The procedure called 
sc 12414 { will remove the pages immediately if the job is addressable; if the job is swapped out, 
9C 12415 { a delayed swapin bit will be set in the job’‘s ijl entry and the pages will be removed 
gC 12416 { when the job swaps in. The segment must be changed to reflect that it is now being 
9€ 12417 { shared hefore the call to the remove procedure; the ijle passed into the remove procedure 
sc 12418 { must be the ijlo of the job that we need to remove the pages from. 
gsc 12418 { First, determine which Shared Queue will be used. NOTE: A segment number of zero indicates 
sc 12420 { that this request was issued because a flush pages on detach _ file failed. In that case, do 
gsc 12421 { not store the asid/asti in the segment table; use shared other queue. 
$C 12422 
9C€ 12423 IF rb.server_ file THEN 
AG 12424 aste_pA.queue_id := mmc$pq_shared_ file server; 
AE 12425 ELSEIF rb.segment_number <> O THEN 
BE 12426 sdte_p := mmp$get_sdt_entry_p (cst_p4.xcb_p, rb.segment_number ); 
BE 12427 sdte_ p4.asti := fde_ prA.asti; 
B6 12428 mmp$asid (fde_pA.asti, asid); 
FO 12429 sdte pA.ste.asid := asid; 
FC 12430 aste_p4.queue_id := mmp$determine_shared_queuve_id (fde_p, sdte_p); 
120 12431 ELSE 
120 12432 aste_pA.queue_id := mmc$pq_ shared other ; 
126 12433 IFEND ; 
126 12434 
126 12435 aste_pA.ijl_ordinal := jmv$system_ijl_ordinal; 
126 12436 imp$get_ijle_p (jmv$system_ijl_ordinal, system_ijle_p); 
126 12437 
126 12438 { Scan the pages in memory belonging to the segment. Store pfti’s of working set pages so they 
126 12438 { can be removed. Adjust I/0 counts for pages in the available modified queue. 
126 12440 
126 12441 count removed := 0; 
126 12442 mmp$reset_store_pfti; 
126 12443 pfti :2 aste pA.pft_link. fwd; 
126 12444 WHILE pfti <> oO DO 
17E 12445 pfte_p := Ammv$pft_pA [pftil; 
17E 12446 IF pfte_ pA.queue_id = mmc$pq_job_working set THEN 
1AC 12447 mmp$store_pfti (pFfti); 
1CA 12448 ELSEIF pfte_p4.queue_id = mmc$pq_avail_modified THEN 
1D0 12449 ijle_pA.inhibit swap count := ijle pA.inhibit swap_count - pfte_ pr.active_io_ count ; 
1DO 12450 ijle_p%.active_io_page_ count := ijle_pr.active_io_page_count - pfte_ pA.active_io count; 
1pD0 612451 System_ijle_pA.inhibit swap_count : = system_ijle_p”.inhibit_swap_count + pfte_ pr. 
1DO0 12452 active_io_ count; 
1D0 12453 System_ijle_p%.active_io_page_ count := system_ijle_pA.active_io_page count + pfte_ pr. 
1D0 12454 active_io_count ; 
100 12455 pfte_ pr.ijl_ordinal := jmv$system_ijl_ordinal; 
20C 12456 IFEND ; 
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20C 12457 pfti :5 mmv$pft_pA [pfti].segment_link. fwd; 
20C 12458 WHILEND; 
236 12459 
236 12460 IF (ijle_pA.swap_status <= jmc$iss_swapped_io_cannot_init) OR (ijle_p4.swap_status = 
24C 12461 jmc$iss_ Swapped_io_complete) THEN 
24C 12462 
24C 12463 mmp$fetch pfti_array_size (count_removed) ; 
24C 12464 IF count removed > © THEN 
264 12465 mmp$reset find next pfti (pfti); 
Z2AE 12466 WHILE pfti <> © DO 
2BE 12467 pfte_ p :: AmmvS$pft_pA [pFfti]; 
2BE 12468 mmp$relink page frame (pfti, pfte_pA.aste_p%.queue_ id); 
2F8 12469 ijle pr. inhibit swap_count := ijle_pA.inhibit swap _count - pfte_ pA.active_io_count; 
2F8 12470 ijle_pr.active_io_page_ count :: ijle_pA.active_io page count - pfte_ pA.active io count ; 
2F8 12471 System_ijle_p%.inhibit swap count := system_ijle_pA.inhibit_Swap_count + pfte_ pA. 
2F8 12472 active io count ; 
2F8 12473 Ssystem_ijle_pA.active io page_count := system_ijle pA.active_ io page count + pfte_ pA. 
2F8 12474 active_io_count ; 
2F8 12475 pfte pA.ijl_ordinal := jmv$system_ijl_ordinal; 
2F8 12476 mmp$find_ next_pfti (pfti); 
380 12477 WHILEND ; 
38C 12478 
38C 12479 IF (Cijle_pA.swap_ status >= jmc$iss_job_idle_tasks_complete) AND (ijle_pA.swap_status <= 
3BO 12480 jmc$iss_swapped_io_cannot_init)) OR (ijle_p%.swap_status = jmc$iss_swapped_io_complete) THEN 
3BO 12481 isp$recaiculate_ swapped pages (ijle_p, count_removed) ; 
3cC 12482 IFEND; 
3CC 12483 IFEND; 
3CE 12484 ELSE 
3CE 12485 ijle_pA.delayed_ swapinm_work := ijle_pA.delayed_ swapin_work + dsw_job_shared_asid_changed; 
3EO 12486 IFEND; 
3EO 12487 IFEND ; 
3EO 12488 IFEND; 
3E0 12489 
3EO 12490 PROCEND mmp$remove_jws_to_shared_ pages; 
© 12491 
© 12482 
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© 12495 { This procedure is called on swapin to remove job shared pages from the working 

© 12496 { set of a job that is Swapping in. The job was swapped out when the when a job 

© 12497 { shared file was attached by a second job, causing a working-set-to-shared 

© 12498 { transition. At the time of the transition a delayed_swapin_work indicator 

© 12499 { was set for the job. The job’s entire working set must be scanned for pages 

© 12500 { that should no be in the shared queue. 

© 12801 [errr rt tr et rete eee Se 9 Ba Se i ie em i gm es Sem a i 2 mii ee im rca ae ae cee ee 

© 12502 

o 12503 PROCEDURE [XDCL] mmp$remove_swapped_shared_ pages 

© 12504 ( ijle_p: AjmtS$initiated_job_list_entry) ; 

Oo 12505 

Oo 12506 VAR 

© 12507 next pfti: mmt$page_frame_index, 

o 12508 pfti: mmt$page_frame_index, 

Oo 12509 pfte_ p: Ammt$page_frame_table_entry, 

Oo 12510 Ssystem_ijle_p: Ajmt$initiated_job_list_entry; 

© 12511 

Oo 12512 { Scan the job_working set queue; any pages for which the ast.queue_id is the global 
© 12513 { queue need to be removed and put in the available queue. 

© 12514 

o 12515 imp$get_ijle_p (jmv$system_ijl_ordinal, system_ijle_p); 

4 12516 

4 12517 pfti := ijle_ pA. job_page_queve_list [mmc$pq_job_working set]. 1ink. bkw; 

4 12518 WHILE pfti <> oO BO 
3A 12519 pfte_p :: AmmvSpFft_p% [pFftil; 

3A 12520 next _pfti := pfte_ pA. link. bkw; 

3A 12521 IF (pfte_pr.aste_p%.queue_id >= mmc$pq_shared_ first) AND 

72 12522 (pfte_ pA. aste_p’.queue_id <= mmc$pq_shared_last) THEN 
72 #12523 mmp$relink_page_ frame (pfti, pfte_pA.aste_pr.queue_id); 
86 12524 ijle_p’. inhibit _swap_count := ijle_ pA.inhibit _swap_count - pfte pA. active_io_ count; 
86 12525 ijle_p*.active_io_page count := ijle_pA.active io_page count - pfte_ pA.active_io_caunt ; 
&86 12526 system_ijle_ p4.inhibit_swap_count := system_ijle_pA. inhibit swap_count + pfte pdr. 
86 12527 active_1o_count; 
86 12528 system_ijle_pA.active_io_ page count := system_ijle_p4.active_io_page_count + pfte pA. 
86 12529 active _io_count; 
86 12530 pfte p.ijl_ordinal := jmv$system_ijl_ordinal; 
BE 12531 IFEND; 
BE 12532 pPpFti :: next pFfti; 
BE 12533 WHILEND; 
C6 12534 
C& 12535 PROCEND mmp$remove_ swapped shared pages; 

Oo 12536 

SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 


MMPSREMOVE DETACHED PAGES 


O 12538 {ent eet ee rt tt te ee tt eww meee rt tem ee ewww mentee meee rere nna 
© 12539 { This procedure removes job working set pages of a file being detached 
© 12540 { from the working set of the job doing the detach. 
© 12841 [Lerner rrr mmm met tte wet we me em meme ee tem er ee eee 
© 12542 
© 12543 PROCEDURE mmp$remove_detached pages 
o 12544 ( Sva: ost$system_virtual_address; 
© 12545 aste_p: Ammt$active_segment_table_entry; 
oO 12546 ijl_ordinal: jmt$ijil_ordinal); 
6 12547 
© 12548 VAR 
o 12549 pfti: mmt$page_frame_index; 
Oo 12550 
o 12551 mmp$initialize find _nmext_pfti (sva, 7FFFFFFO(16), include _partial_pages, 
32 12552 pfti); 
32 12553 WHILE pfti <> oO DO 
34 12554 IF (mmv$pft_pA [pftil]l.queue_id > mmc$pq_first_valid_in_pt) THEN 
64 12555 IF mmv$pft_pA [pfti]. locked page = mmc$ip_page_in_lock THEN 
6C 12556 mmp$delete_pt_entry (pfti, TRUE); 
82 12557 mmp$relink_page_frame (pfti, mmc$pq_free) ; 
9E 128558 ELSE 
9E 125598 mmp$Sremove_page_from_job (pfti) ; 
BO 12560 IFEND; 
BO 12561 mmv$pft_pA [pfti].locked_ page := mmc$1p_not_locked; 
CE 12562 IFEND; 
CE 12563 mmp$find_ next _pfti (pfti); 
122 12564 WHILEND ; 
12E 12865 


12E 12566 PROCEND mmp$remove_detached_pages; 
Oo 12567 


psc_nominal_queue, 


13:33:34 


13:33:34 


aste_p, 


PAGE 409 


PAGE 410 


SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89162 1889-08-21 13:33:34 


MMP$REMOVE_PAGES WORKING _SET 


© 12870 {------ Em TS i I ES Se RCS ee ey ee cme ae amr eI ee a eee en sm eee mse eS erie 

© 12571 {This procedure removes pages from a job working set or shared working set 

© 12572 {All pages totally or partially contained between SVA to SVA + LENGTH are 

© 12573 {moved te the AVAILABLE or AVAILABLE-MODIFIED queue. 

O 125874 [errr etme tet ee eee emt eee remem meme new ene eee eee eee eR ee am 

© 12575 

Oo 12576 PROCEDURE [XDCL] mmp$remove_pages_working_set 

o 12577 ( sva: ost$system_virtual_address; 

o 12578 length: ost$segment_ length; 

°o 12579 aste_p: Ammt$active_ segment _tablie_entry; 

oOo 12580 VAR rcount: integer); 

o 12581 

© 12582 VAR 

Oo 12583 cst_p: Aost$cpu_state_ table, 

Oo 12884 mceount: integer, 

Oo 12585 pfti: mmt$page_frame_index; 

© 12586 

© 12587 { ###4# CHECK THIS ALGORITHM CAREFULLY. Consider restricted attach/detach, job shared files, restricted 
© 12588 { #### attach/detach of global shared files. 

o 125898 

© 12590 mtp$cst_p (cst_p); 

14 12591 

14 12592 { Do net remove pages from the shared queue, mor from anecther job’s working set. 
14 12593 

14 12594 IF (aste_p%.queue_id <> mmc$pq_job_ working set) OR (aste_pA.ijl_ordinal <> cst _p4A.ijl_ordinal) THEN 
48 12595 RETURN; 

4A 12596 IFEND; 

4A 12597 

4A 12598 mmp$initialize find_next_pfti (sva, length, include partial pages, psc_nominal_queue, aste_p, pfti); 
8O 12599 IF pfti = 0 THEN 

&8& 12600 recount := 0; 

88 12601 RETURN 

982 12602 IFEND,; 

92 12603 


92 12604 { Delete locked pages from the array of pages to be removed. 
92 12605 { ### There should be a better way of doing this than scanning the whole array. 


82 12606 
$82 12607 WHILE pfti <> Oo DO 
9A 12608 
9A 12609 IF mmv$pft_p4 [pfti].locked_ page <> mmc$1p_not_locked THEN 
co 12610 mmp$delete_last_pfti_from_array; 
D4 12611 IFEND; 
D4 12612 mmp$find next _pfti (pfti); 
128 12613 WHILEND; 
134 12614 
134 12615 mmp$remove_pages_from_jws (mmc$pq_avail_modified, cst_p4.ijle_p, mcount, rcount); 
162 12616 
162 12617 PROCEND mmp$remove_pages_working set; 
oO 12618 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


. 


MMP$MM_FREE_PAGES 


© 12621 [ert tree re em te ee ee ee ee ee eee 
© 12622 {This procedure frees (moves the page frames to the free page queue) ail} 
© 12623 {pages TOTALLY contained in the range SVA to SVA + LENGTH. 
© 12624 {NOTE that modified pages are NOT written to disk. cal 
© 12625 {If ASID is to be freed, map is not purged prior to deleting page frames. 
© 12626 {rrr tm et ete ee te te er te em ee eee eee 
Oo 12627 
Oo 12628 PROCEDURE [XDCL] mmp$mm_free_ pages 
© 12629 ( sva: ost$system_virtual_address; 
Oo 12630 length: ost$segment_ length; 
© 12631 aste_p: Ammt$active_segment_table_entry; 
Oo 12632 free asid: boolean; 
© 12633 VAR count: integer); 
© 12634 
© 12635 VAR 
© 12636 contiguous pages: integer, 
© 12637 first _pfti: mmt$page_frame_index, 
© 12638 ijl_p: Ajmt$initiated_job_list_entry, 
© 12639 pfti: mmt$page_frame_index; 
Oo 12640 
o 12641 count :=: 0; 
4 12642 
4 12643 mmp$initialize find next _pfti (sva, length, exclude partial pages, psc_all, aste_p, pfti); 
46 12644 
46 12645 IF NOT free _asid THEN 
4E 12646 WHILE pfti <> Oo DO 
56 12647 mmvS$pt_pA [mmv$pft_pA [pfti] .pti].v := FALSE; 
56 12648 mmp$find_next_pfti (pfti); 
EO 12649 WHILEND; 
EC 12650 mmp$purge_all_cache_map; 
118 12651 mmp$reset_ find _mext pfti (pfti); 
176 12652 IFEND; 
176 12653 
176 12654 WHILE pfti <> ©o DO 
182 12655 mmp$delete pt_entry (pfti, TRUE); 
1SA 12656 mmp$relink_page_ frame (pfti, mmc$pq_free); 
1B2 12657 count := count + 1; 
1B2 12658 mmp$find mext_ pfti (pFfti); 
208 126593 WHILEND; 
214 12660 
214 12661 IF aste_p4.queue_id = mmc$pq_job_fixed THEN 
224 12662 jmp$get_ijle_p (aste_pA.ijl_ordinal, iji_p); 
224 12663 contiguous pages :=: 0; 
224 12664 first_pfti :2* ijl _p4.job_page_queue_list [mmc$pq_job_fixed]. link. bkw; 
224 12665 IF (mmv$pFft_pA [first _pftil.sva.offset <> 0) THEN 
278 12666 WHILE mmv$pft_ pA [first_pfti].sva.offset <> © DO 
278 12667 contiguous pages := contiguous pages + 1; 
278 12668 first _pfti := mmv$pft_pA [first _pfti]. link. bkw; 
278 12669 WHILEND; 
2B2 12670 IFEND; 
2B2 12671 iji_pA.job_fixed contiguous pages := contiguous pages; 
2B2 12672 mmv$total_contig pages assigned := mmv$total_contig_pages_ assigned - contiguous pages; 
2C8 #12673 IFEND; 
2C8 12674 IF free_asid THEN 
2D0 12675 mmp$free_asid (sva.asid, aste_p); 


2EC 12676 IFEND; 


PAGE 411 


PAGE 412 


SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
MMPSMM_FREE_ PAGES 
2EC 12677 
2EC 12678 PROCEND mmp$mm_free_pages; 
o 12679 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
MMPSMM_WRITE MODIFIED PAGES 
© V2GR 2 se Ses Re Sr OS Be ea SS ee ae EN re eee Re se ee en ae res ASS eee 
© 12683 {Name: 
© 12684 { mmp$mm_wr ite_modified_pages 
© 12685 {Purpose: 
©o 12686 { This procedure writes all modified pages within a Specified SVA range 
© 12687 { to the backing file for the segment. All pages totally or partially 
© 12688 { contained in the range of SVA to SVA + LENGTH are written. 
o 12689 { 
o 12690 { If init _nmew_io is FALSE then the monitor request has been reissued 
© 12691 { and only status will be returned. Job mode sets init _mew_io to TRUE 
© 12682 { in the RB and mmp$process_ wmp_status or mmp$mtr_write will set it 
© 12693 f{ to FALSE if the wait option is selected. 
6 I I SE aR I a ea dg a a ls 
© 12695 
© 12696 
© 12697 PROCEDURE [XDCL] mmp$mm_wr ite _modified_pages 
© 12698 ( Sva: ost$system_virtual_address; 
© 12699 length: ost$segment_length; 
© 12700 fde_ p: gft$locked file_desc_entry_p; 
oO 12701 aste_p: Ammt$active_segment_table_ entry; 
© 12702 iotype: iot$io_ function; 
© 12703 init new _io: boolean; 
© 12704 remove page: boolean; 
© 12705 io_id: mmt$io_identifier; 
© 12706 VAR io _count: mmt$act ive _io_count ; 
© 12707 VAR io _already_active: boolean; 
© 12708 VAR last _written_pfti: mmt$page_frame_index; 
© 127093 VAR wmp_status: mmt$write_modified_pages status) ; 
© 12710 
o 12711 VAR 
0 12712 cst_p: Aost$cpu_state_table, 
© 12713 write status: mmt$write page_to_disk_status, 
© 12714 pfti: mmt$page_frame_ index; 
© 12715 
© 12716 jo count := 0; 
4 12717 io_already active := FALSE; 
4 12718 wmp_ status :* mmc$wmp_io_complete; 
4 127198 last _written_pfti := 0; 
4 12720 
4 12721 mtp$cst_p (cst_p); 
38 12722 mmp$initialize_ find _next_pfti (sva, length, include_partial_pages, psc_al}l_except_avail, aste_p, pfti); 
7E 12723 
7E 12724 IF init nmew_io THEN 
86 12725 /write_loop/ 
86 12726 WHILE pfti <> 0 DO 
8E 12727 IF mmv$pt_pA [mmv$pft_p4 [pfti].pti].m THEN 
CC 12728 /write_to_disk/ 
cC 127298 BEGIN 
c€ 12730 mmp$write page to _disk (fde_p, pfti, iotype, io_id, mmv$multi_page write, write status); 
108 12731 IF write status = ws_ok THEN 
110 12732 last written pfti :: pfti; 
110 12733 
110 12734 IF io _id.specified THEN 
120 12735 ie count := io _count + 1; 
12A 12736 IFEND; 


12E 12737 


PAGE 413 


PAGE 414 


SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 


MMP$MM_WRITE_MODIFIED_PAGES 


12E 12738 ELSEIF write status = ws_disk_flaws THEN 

132 127398 wmp_ status : = mmc$wmp_ic_errors; 

13€ 12740 ELSEIF write status = ws_ volume _unavailabie THEN 

142 12741 wmp status := mmc$wmp_ volume unavailable; 

14A 12742 ELSEIF write status = ws_ server terminated THEN 

150 12743 wmp_status := mmc$wmp_server_ terminated; 

158 12744 ELSE 

158 12745 wmp_status := mmc$wmp_io_initiation_re ject ; 

158 12746 EXIT /write_loop/; 

160 12747 IFEND; 

160 12748 

160 12749 END /write_to_disk/; 

164 12750 ELSEIF (mmv$pft_pA [pfti].active_io_count <> 0) AND [last _written_pfti = 0) THEN 

174 12751 last _written_pfti :5 pfti; 

174 12752 IF jio_id.specified THEN 

180 12753 io_already active := TRUE; 

184 12754 IFEND; 

184 12755 IFEND; 

184 12756 

184 12757 { REMOVE PAGE is true only if the request code is mmc$sri_ detach file. 

184 12758 { When a permanent file is detached, if the pages are being kept in a job’s working set 

184 12759 { all those pages must be removed. 

184 12760 { ###!! The ijl ordinal check is needed to prevent a "restricted" attach/detach (access mode = none) 

184 12761 { from removing pages from the working set of the job that really has the file attached. 

184 12762 { (There is a timing problem--if the real detach and a new shared attach occurrs before the 

184 12763 { restricted detach, the queue status will incorrectiy remain working set for a shared file.) 

184 12764 { When perm files cleans up the restricted attach, the ijl ordinal check can probably be removed. 

184 12765 

184 12766 IF (remove_page) AND (mmv$pFft_p4 [pftil]l.queue_id >» mmc$pq_first_valid_in_pt) AND 

1F6 12767 NOT (mmv$pt_pA [mmv$pFft_pA [pfti].pti].m) AND (mmv$shared_pages_in_jws) AND 

1F6 12768 (aste_pA.queue_id = mmc$pq_job_working set) AND (mmv$pft_p4 [pfti].ijl_ordinal = 

1F6 12769 cst_p%.iji_ordinal) THEN 

1F6 12770 IF mmv$pft_pA [pfti]. locked _ page = mmc$Ip_page_in_lock THEN 

1FE 12771 mmp$delete_pt_entry (pfti, TRUE); 

212 12772 mmp$relink page_frame (pfti, mmc$pq_free) ; 

22E 12773 ELSE 

22E 12774 mmp$remove_ page_from_job (pfti); 

23E 12775 IFEND; 

23E 12776 mmv$pft pA [pfti]. locked page := mmc$1p_not_ locked; 

25C 12777 IFEND; . 

25C 12778 mmp$find next pfti (pfti); 

2B0 12779 WHILEND /write_loop/; 

2CoO 12780 ELSE 

2C0 12781 /status_loop/ 

2C0 12782 WHILE pfti <> 0 DO 

204 12783 IF mmv$pt_pA [mmv$pft_pA [pfti] .pti].m THEN 

308 12784 IF (mmv$pft_pA [pfti].queve_id = mmc$pq_job_io_error) OR 

31C 12785 (mmv$pft_pA [pfti]l.queue_id = mmc$pq_shared_io_error) THEN 

31C 12786 IF (mmv$pft_pA [pfti].io_error <> ioc$unrecovered error_unit down) AND 

346 12787 (mmv$pft_p4 [pfti].io_error <> ioc$unit_down_on_init) THEN 

346 12788 wmp_ status := mmc$wmp_io_errors; 

34E 12789 ELSE 

34E 12790 wmp_status : = mmcS$wmp_volume_unavai labile; 

354 12791 IFEND ; 

354 12782 IFEND; 

358 12793 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 
MMPSMM_WRITE_ MODIFIED PAGES 

358 12794 ELSEIF (mmv$pft_p4 [pfti].active_io_count <> ©) THEN 

360 12795 last written _pfti : 5 pti; 

360 12796 IF io_id.specified THEN 

36C 12797 io_already active := TRUE; 

370 12798 IFEND; 

370 12799 IFEND; 

370 12800 

370 12801 mmp$find_next_pfti (pfti); 

3BC 12802 WHILEND /status_loop/; 

3C8 12803 IFEND ; 

3C8 12804 

3C8 12805 IF io_id.specified THEN 

3D0 12806 IF (io _count > ©) AND (wmp_status = mmc$wmp_io_complete) THEN 

3E0 12807 wmp_status := mmc$wmp_io_active; 

S3E6 12808 IFEND; 

3E8 12809 ELSE 

3E8 12810 IF (last _written_pfti <> 0) AND (wmp_status <> mmc$wmp_volume_unavailable) AND 

3FE 12811 (wmp_status <> mmc$wmp_io_initiation_reject) THEN 

SFE 12812 wmp_status := mmc$wmp_io_active; 

404 12813 IFEND; 

404 12814 IFEND; 

404 12815 


404 12816 PROCEND mmp$mm_wr ite modified pages; 
© 12817 


PAGE 415 


PAGE 416 


SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 417 
MMPSPROCESS WMP_STATUS 
Oo 12820 
© 12821 {----- Ra eee Sa eee ates eS PF iy SSS Te ee aS ecm See ESOS ee SR Oh ee meee Se SA SS VR Ree eee eee 
© 12822 {Name: 
© 12823 { mmp$process_wmp_status 
© 12824 {Purpose: 
© 12825 { This procedure processes the status returned by mmp$mm_write_modified_ pages. If 
o 12826 { IO inititation was not completed the monitor request will be reissued. If the 
© 12827 { wait option was selected, init_new_io in the RB will be set to FALSE and the 
© 12828 { monitor request reissued. 
© 12829 { 
© 12830 { Rb_init_new_io and rb_ status are input/output parameters and should not be initialized. 
© 12831 { 
a aa I aN a a ca ade as 
© 12833 
© 12834 
Oo 12835 PROCEDURE [XDCL] mmp$process_wmp_status (wmp_status: mmt$write modified _ pages status; 
Oo 12836 last_written_pfti: mmtSpage_frame_index; 
© 12837 ro wait: ost$wait ; 
oOo 12838 VAR rb_init_mew_io: boolean; 
© 12839 VAR rb_status: syt$monitor_ status) ; 
© 12840 
oO 12841 VAR cst_p: Aost$cpu_state_ table; 
© 12842 
© 12843 mtp$cst_p (cst_p); 
14 12844 
14 12845 CASE wmp_ status OF 
52 12846 = mmc$wmp_io_initiation_reject = 
52 12847 IF last _written_pfti «> O THEN 
5A 12848 IF mmv$pft_pA[llast_written_pfti].active_io count = O THEN 
7¢ 12849 mtp$error_stop(’MM - WMP tried to queue and no 10’); 
9C 12850 IFEND; 
sc 12851 tmpSqueue_task(cst_p%.taskid, tmc$ts_page wait, mmv$pft_pA[last_written_pfti].task_queue) ; 
DE 12852 tmpSreissue_monitor_ request ; 
EA 12853 ELSE 
EA 12854 tmp$reissue_ monitor_request ; 
F2 12855 tmp$cause_task_ switch; 
FA 12856 IFEND; 
FA 12857 
FA 12858 = mmc$wmp_io_complete = 
FC 128598 
FC 12860 = mmc$wmp_io_active = 
FC 12861 IF rb_wait = osc$Swait THEN 
104 12862 IF mmv$pft_pAl[last_written_pfti].active_io_count = © THEN 
124A 12863 mtp$Serror_stop(’MM - WMP tried to queue and no 10’); 
144 12864 IFEND; 
140A 12865 tmp$queue_task(cst_pA.taskid, tmc$ts_page_wait, mmv$pft_pA[last_written_pfti].task_queue) ; 
18C 12866 rb_init mew_io := FALSE; 
18C 12867 tmp$reissue_monitor_request ; 
19E 12868 IFEND ; 
1AO 12869 
120 12870 > mmcS$wmp_volume_unavailable = 
1A0 12871 mtp$set_status_abnormal (’MM’, mme$volume_unavailable, rb_status); 
1B8 12872 
1B8 12873 = mmc$wmp_io_errors = 
1B8 12874 mtp$set_status_abnormal (’MM’, mme$io_write_error, rb_status}); 
1DO0 12875 
SOURCE LIST OF mmm$monitor_ request _processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 418 


e 


MMPSPROCESS WMP_STATUS 


1DO 12876 => mmc$wmp_server_terminated = 
1DO 12877 mtp$set_status_abnormal (’DF’, dfe$server_has_terminated, 
1E6 12878 
1E6 12879 CASEND ; 
1E6 12880 
1E6 12881 PROCEND mmp$process_wmp_status; 
© 12882 


© 12883 


rb status); 


SOURCE LIST OF mmm$monitor request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 


MMP$MM_CONDITIONAL_FREE 


oOo 12886 
© 12887 { Purpose: : 
o 12888 { This procedure conditionally frees pages of a segment in the address range of SVA to 
o 12889 { SVA + LENGTH - 1. The modified bits are cleared to prevent writing the pages to disk. 
o 12890 { The pages will remain in the job’s working set though in case they are referenced again 
o 12881 { soon. Normal aging will move the pages to the free queue when they are no longer being 
o 12892 { referenced. 
o 12893 
Oo 12894 PROCEDURE mmp$mm_conditional_free (sva: ost$system_virtual_ address; 
oOo 12895 length: ost$segment_length; 
© 12896 aste_p: Ammt$act ive_segment_table_ entry) ; 
© 12897 
© 12898 VAR 
o 12889 pfte_p: Ammt$page_frame_table_entry, 
o 12900 pfti: mmt$page_frame_index, 
Oo 12901 pte _p: Aost$page table _entry, 
o 12902 purge all_page maps: boolean; 
o 12903 
© 12904 purge_all_page_maps :=: FALSE; 
4 12905 
4 12906 mmp$initialize_find_next_pfti [(sva, length, exclude partial pages, psc_all_except_avail, aste_p, pfti); 
32 12907 WHILE pfti <> oO DO 
3C 12908 pfte p := Ammv$pft_pA [pFftil]; 
3C 129093 pte _p := Ammv$pt_p4 [pfte_pA.ptil]; 
3C 12910 IF (pfte_pA.queue_id = mmc$pq_avail_modified) AND (pfte_pA.active_io_count = ©) THEN 
80 12911 pte_pA.m := FALSE; 
80 12912 
80 12913 { Whenever the modified bit is cleared on a page in the available modified queue that does not have 
80 12814 { 1/0 active, the SOON count must be incremented. When relink_page_ frame takes an UNMODIFIED page out 
80 12915 { of the available_modified queue, it assumes I/0 has been done and will decrement the soon count. 
80 12916 
80 12917 mmv$reassignable_page_frames.soon := mmv$reassignable page _frames.soon + 1; 
8O 12918 mmp$relink page frame (pfti, mmc$pq_ avail); 
Ac 129198 ELSEIF pte _ pA.v THEN 
BE 12920 
BE 12921 { Pages must be removed from the io error queues before the modified bit is cleared. 
B6 12922 
B6 12823 IF (pfte_ pA.queue_id = mmc$pq_shared_io_error) OR (pfte_p4%.queue_id = mmc$pq_job_io_error) THEN 
CA 12924 mmp$relink_ page_frame (pfti, pfte_ pA. aste_p%.queue_ id); 
EC 12825 IFEND; 
EC 12926 pte_pA.m := FALSE; 
EC 12927 IF pte _pA.u THEN 
FE 12928 pte p%.u :5 FALSE; 
FE 12929 pfte pA.age := 0; 
FE 12930 pfte pA.cyclic_age := 0; 
70C 12931 IFEND; 
10C 12932 purge _ all_page_ maps := TRUE; 
112 12933 IFEND; 
112 12934 mmp$find_ next pfti (pfti); 
166 12935 WHILEND; 
172 12936 
172 12937 IF purge _all_page maps THEN 
176 12938 mmp$sva_purge_all_page_map (sva); 
18E 12939 IFEND; 
18E 12940 
18E 12941 PROCEND mmp$mm_conditional_ free; 
e 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 88162 1989-08-21 13:33:34 


MMP$MM_CONDITIONAL_FREE 


ce) 


12942 
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SOURCE LIST OF 


MMPSFREE_ 
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FLUSH 


12945 
12946 
12947 
12948 
12949 
12950 
12951 
12952 
12953 
12954 
12955 
12956 


SOURCE LIST OF 


MMP$FREE_ 


150 
150 
1AC 
1AC 
1EO 
1E4 
1E4 
218 
218 
234 
234 
248 
248 
248 
248 
248 
24C 


FLUSH 


13001 
13002 
13003 
13004 
13005 
13006 
13007 
13008 
13008 
13010 
13011 
13012 
13013 
13014 
13015 
13016 
13017 


mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 


1989-08-21 


{ a a a mo 
{Name: 

{ mmp$free_filush 

{Purpose: 

{ This routine processes the ‘’FREE’ , ‘WRITE MODIFIED PAGES’, and 

{ ‘CONDITIONAL FREE’ requests 

{Input : 

{ rb - request block 

{Output 

{ none 


{Error Codes: 
{ invalid PVA 


PROCEDURE [XDCL] mmp$free_fiush 
(VAR rb: mmt$rb_free_ flush; 
cst_p: Aost$cpu_ state table); 


VAR 
fde_p: gftS$locked file desc _entry_p, 
wmp_ status: mmtSwrite_modified_pages_ status, 
last_written_pfti: mmt$page_frame_index, 
ste_p: Ammt$segment_descriptor, 
stxe_ p: Ammt$segment_descriptor_ extended, 
aste_p: Ammt$active_segment_table_entry, 
page_count: integer, 
10 _id: mmtSio_identifier, 
tTo_count: mmt$active_io_count, 
10 _already active: boolean, 
sva: ost$system_virtual_address; 


1o_id.specified :: FALSE; 
IF NOT mmv$tables_initialized THEN 
RETURN 
IFEND; 
#KEYPOINT (osk$entry, rb.reqcode * osk$m, mmk$free_ flush) ; 
rb.status.normal := TRUE; 


{Free pages. 
IF cst_pA.xcb_ pA.xp.p_register.pva.ring >» 3 THEN 
mmp$verify pva (Arb.pva, mmc$sat_ write, rb.status); 
ELSE 


mmp$verify_pva (Arb.pva, mmc$sat_reac_or_write, rb.status) ; 


IFEND; 
IF rb.status.normal THEN 


mmp$convert_pva (rb.pva, cst_p, sva, fde_p, aste_p, ste_ 


CASE rb.reqcode OF 
= syc$rc_write_ modified pages = 


p, stxe_p); 
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IF (aste_p%.queue_id <> mmc$pq_job_working set) AND ((aste_pA.queuve_id < mmc$pq_ shared _ first) OR 


(aste_pA.queue_id > mmc$pq_shared_last)) THEN 


mtp$set_status_abnormal (‘MM’, mme$segment_not_pageable, 


ELSEIF fde_p%.media = gfc$fm_transient_ segment THEN 


mtp$set_ status abnormal {’MM’, mme$segment_not_assigned_ device, 
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ELSE 
mmp$mm_write_modified_ pages (sva, rb.length, fde_p, 


to _id, to_count, io_already_ active, last_written_pfti, 


{Queue_id is neither JWS nor a shared queue} 
ro.status); 


rb.status); 


1989-08-21 


° 


aste_p, ioc$write page, rb.init 


mmp$process_ wmp_status (wmp_status, last_written_pfti, rb.waitopt, 


IFEND; 
syc$rc_free_ pages =: 


mmp$mm_free_ pages (sva, rb.length, aste_p, FALSE, page_count); 


= syc$re_conditional_free = 
mmp$mm_conditional free (sva, rb.jlength, aste_p); 
ELSE 


mtp$set_status_abnormal (’MM’', mme$invalid_request, rb.status); 


CASEND; 
IFEND; 


#KEYPOINT (osk$exit, ©, mmk$free_flush); 
PROCEND mmp$free_ flush; 


wmp_ status) ; 


rb.init_new_io, 
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_mew_io, FALSE, 


rb.status); 
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© 13020 { NAME: 

© 13021 { MMPSMOVE MODIFIED SERVER_PAGE 

oO 13022 { PURPOSE: 

© 13023 { This monitor request will move a page frame from a source file , specified by a system _file_id, to a 

© 13024 { destination file. It is used to update the server image file on the client in the case of a server crash. 

© 13025 { When the request completes, the page in the range from <rb.byte_offset> to <rb.byte_offset>+ <osv$page_size> 

© 13026 { will have been moved to the range of addresses specified by <rb.destination_pva> to <rb.destination_pva>+ 
- © 13027 { <osv$page_size>. This procedure assumes that <rb.destination_pva> iS on a page boundary. The procedure 

© 13028 { executes in monitor mode on behalf of a system task which writes the server image file with pages from ail 

© 13029 { of the currentiy attached server files. 

© 13030 { . 

© 13031 { CAUTION: Be sure to fully understand how the ‘move’ is accomplished before changing this 

© 13032 { precedure. Because mmp$delete_ pt_entry USES information and mmp$make_pt_entry 

© 13033 { CHANGES information in the page frame table entry, it is mecessary to ’move’ the 

© 13034 { page in the following order: 

© 13035 { 1. Delete the source page table entry. 

© 13036 { 2. Change the page frame tabie entry to reflect destination page information. 

© 13037 { 3. Make the page table entry for the destination page. 

© 13038 { 4. If necessary, relink the page frame to the queue for the destination segment. 

o 13039 { 5. Set the valid bit on the destination page. 

oO 13040 { 

© 13041 { PROCEDURE [XDCL] mmp$move_modified_server_page 

© 13042 { (VAR rb: mmt$rb_ringi_server_seg_ request; 

© 13043 { cst _p: Aost$cpu_state table) ; 

© 13044 { 

o 13045 { RB: (INPUT/OUTPUT) Specifies the request block containing the information 

© 13046 { which will be used by the procedure to move (if possible) a single page 

© 13047 { to the destination (server image) file. 

© 13048 { RB.SFID: Specifies the System File ID of the file whose pages must be 

© 130495 { moved to the destination file 

© 13050 { RB.GLOBAL FILE NAME: Specifies the global file name of the file whose 

o 13081 { pages must be moved to the destination file 

o 13052 { RB.DESTINATION_ PVA: Specifies the location within the server image 

© 13053 { file to which a located modified page will be written 

© 13054 { RB.BYTE OFFSET: Specifies the beginning offset of the located page 

© 13055 { which has been moved. This is an output value. 

o 13056 { RB.STATUS: Specifies the completion status of the request. Conditions 

© 13057 { which can be returned are: 

o 13058 { mme$io_active_on_move_page 

© 13058 { mme$no_pages_found_for_move 

o 13060 { mme$page table _ full 

o 13061 { CST_P: (INPUT) Specifies the pointer to the CPU state table which is 

© 13062 { executing this process. . 

© 13063 [eter rt ttt ew tr terete eee a Nd eee tem neem tem nse ete tte eee eB EE Ee weer ete eee ee 

Oo 13064 

© 13065 PROCEDURE [XDCL] mmp$move_modified_server_page 

Oo 13066 (VAR rb: mmt$rb_ring!_server_seg request; 

Oo 13067 cst_p: Aost$cpu_state_ table) ; 

oOo 13068 
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DETERMINE MOVE PAGE STATUS 


0 13070 

0 13071 PROCEDURE [INLINE] determine _move_page_ status 

© 13072 ( pfti: mmt$page_ frame_index ; 

© 13073 fde_p: gft$locked file desc_entry_p; 

®o 13074 VAR move _ page: boolean; 

© 13075 VAR lock_encountered: boolean) ; 

o 13076 

0 13077 VAR 

4 13078 pft_entry_p: Ammt$page_frame_table_ entry; 

4 13078 

4 13080 move page :: FALSE; 

4 13081 pft_entry_p : = Ammv$pft_pA [pFftil; 

4 13082 

4 13083 IF NOT mmv$pt_p’ [pft_entry_p4. pti] .m THEN 

4 13084 RETURN; 

4 13085 IFEND ; 

4 13086 

4 13087 { The page is not valid for the move to the image if the page lock 

4 13088 { (page is being read from disk or server allocation is occurring) or the user has 
4 13089 { Io. 

4 130390 

4 13091 IF (pft_entry_ pA. locked page = mmc$ip_aging_lock) OR 

4 13092 (pft_entry pA. locked page = mmcS$ip_server_allocate_ lock) OR 
4 13093 (pft_entry pA. locked page = mmc$ip_page_in_lock) THEN 

4 13094 lock encountered := TRUE; 

4 13095 RETURN; 

4 130396 IFEND; 

4 130397 

4 13088 { The page is not valid fer the move to the image if the segment 

4 13088 { is still being written from a previous MMPSUNLOCK SEGMENT with write protection. 
4 13100 

4 13101 IF fde_pA.segment_ lock. locked for_write AND 

4 13102 (pft_entry pA. locked page <> mmc$I1p_write_ protected lock) THEN 
4 13103 lock_encountered :: TRUE; 

4 13104 RETURN; 

4 13105 IFEND, 

4 13106 

4 13107 move page := TRUE; 

4 13108 

4 13109 PROCEND determine_move_page_status; 


indicates the page doesn’t contain data 


locked the page to prevent 


is locked (MMPS$LOCK_SEGMENT) UNLESS the page 
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asti); 


rb.status); 


fde_ p, destination_aste_p, 


Free those pages which are not modified 


DO 


4 13111 
4 13112 VAR 
6 13113 asid: ost$asid, 
a 4 13114 aste_p: AmmtS$active_ segment_table_ entry, 
4 13115 asti: mmt$ast_index, 
4 13116 coumt: 1 32, 
4 13117 destination_aste_p: Ammt$active_segment_table_entry, 
4 13118 destination pfte_p: Ammt$page_ frame_table_entry, 
4 13118 destination_pfti: mmt$page_frame_index, 
4 13120 destination_pti: integer, 
He 4 13121 destination_ste_p: Ammt$segment_descriptor, 
4 13122 destination _stxe_p: Ammt$segment_ descriptor extended, 
4 13123 destination_sva: ost$system_ virtual address, 
4 13124 fde_p: gft$locked_ file _desc_entry_p, 
4 13125 found: boolean, 
4 13126 lock_encountered: boolean, 
4 13127 move page: boolean, 
4 13128 mpt_ status: mmt$make_pt_entry_status, 
4 13129 pfti: mmt$page_frame_index, 
4 13130 save_valid: noolean, 
4 13131 source_aste_p: AmmtS$active_segment_table_entry, 
4 13132 source _ sva: ost$system_virtual address; 
4 13133 
4 13134 
4 13135 rb.status.normal := TRUE; 
4 13136 
4 13137 { Set up variables for the search through the ASTE for pages associated with the RB.SFID. 
4 13138 
4 13139 gfp$mtr_get locked fde_p {(rbo.sfid, cst_p%.ijle_p, fde_p); 
94 13140 mmp$get_verify_asti_in_fde (fde_p, rb.sfid, cst_p4.ijl_ordinal, 
Fa 13141 IF asti = O THEN 
FC 13142 mtp$set status abnormal (’MM’, mmeSno_pages_ found_for_move, 
Fe 13143 RETURN; 
114 13144 IFEND; 
174 13145 
114 13146 mmp$asid (asti, asid); 
130 13147 source sva.asid :: asid; 
130 13148 
130 13149 mmp$verify pva (Arb.destination_pva, mmc$sat_write, rb.status); 
15C 13150 IF NOT rb.status.normal THEN 
164 13151 RETURN ; 
166 13152 IFEND; 
166 13153 
166 13154 mmp$convert_pva {(rb.destination_pva, cst_p, dest ination_sva, 
TAA 13155 destination _stxe_p) ; 
1AA 13156 
1AQR 13157 source_aste_p := Ammv$ast_p” [asti] ; 
1AA 13158 
1AA 13159 { Start looking through the aste_ pA.pft_link for modified pages. 
1AH 13160 { and nave no I10 active on them. 
TAA 13161 
1AA 13162 pfti := source _ aste_ pA.pft_ link. fwd; 
1AA 13163 lock encountered := FALSE; 
1AA 13164 
1AA 13165 /locate_a_modified_page/ 
144 13166 WHILE (pfti <> ©) AND (mmv$pft_pA [pfti].active_io_count = 0) 
a 
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lock_encountered) ; 


ro.status); 


rb.status); 


to restore the page tabie. 


delete it. 


DIV osv$page_size; 


1EC 13167 save valid := mmv$pt_pA [mmv$pft_ pA [pfti] .ptil.v; 
1EC 13168 mmv$pt_ pA [mmvS$pft_pA [pfti].pti].v :=+ FALSE; 
1EC 13169 mmp$purge all _map_proc; 
228 13170 determine move _page_status (pfti, fde_p, move_page, 
29C 13171 IF NOT move_page THEN 
2A4 13172 IF dfv$file_server_dabug enabled AND lock_encountered THEN 
2B8 13173 display_integer_monitor (’ Lock encountered ’, pfti); 
20C 13174 IFEND ; 
2D0C 13175 mmp$delete pt _entry (pfti, TRUE); 
2FO 13176 mmp$relink page frame (pfti, mmc$pq_ free) ; 
304 13177 pfti := source aste pA.pft_ link. fwd; 
30C 13178 ELSE 
30C 13179 mmv$pt_pA [mmvSpFft_pA [pfti]l.pti].v :: save valid; 
30C 13180 EXIT /locate_a_modified_page/; 
340 13181 IFEND; 
340 13182 WHILEND /locate_a_modified_page/ ; 
368 13183 
368 13184 IF pfti = ©O© THEN 
36C€ 13185 mtp$set_status abnormal (‘MM’, mme$no_pages_found_for_move, 
36C 13186 mmp$purge_all_map_proc; . 
38C 13187 IF tock _encountered THEN 
384 13188 mmp$purge_a11_cache_ proc; 
39C 13189 IFENO; 
39C 131906 RETURN; 
3A2 13191 ELSEIF (mmv$pft pA [pfti].active_io_count > ©) THEN 
3C6 13192 mtp$set_status_ abnormal (’MM’, mme$io_active_on_move_page, 
3C6 13193 mmp$purge_a11_map_proc; 
3E6 13194 IF lock_encountered THEN 
SEE 13195 mmp$purge_all_cache_proc; 
3F6 13196 IFEND ; 
3F6 13197 RETURN; 
3F8 13198 IFEND; 
3F8 13199 
3F&8 13200 { We have located a modified page of the file which now can be moved. 
3F8 13201 { Delete the source page, but save the valid bit in case we need 
3F8 13202 { (The valid bit was saved as part of the operation to locate a page above.) 
3F8 13203 
3F8 13204 source sva.offset := mmv$pft_pA [pfti].sva.offset; 
3F8 13205 mmp$delete_pt_entry (pfti, TRUE); 
436 13206 mmp$purge_a1i_cache_map_proc; 
43E 13207 
43E 13208 { The destination page should not be in the page table; if it is, 
43E 13209 
43E 13210 #hash_sva (destination_sva, destination_pti, count, found); 
444 13211 IF found THEN 
458 13212 destination pfti := (mmv$pt_pA [destination_pti].rma *512) 
458 13213 mmp$delete pt _entry (destination _pfti, TRUE); 
48E 13214 mmp$relink page frame (destination_pfti, mmc$pq_free) ; 
4A2 13215 IFEND; 
@A2 13216 
4A2 13217 { Change the page frame table entry to the destination page information. 
4A2 13218 
4A2 13219 destination_pfte_p := Ammv$pft_pA [pFftil; 
1 4A2 13220 destination pfte pA.aste_ p := destination_aste_p; 
4A2 13221 destination pfte pA.sva := destination sva; 


13222 
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destination_ste_p, 
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4A2 13223 { Make the page table entry for the destination page. If the page table is full, replace the source page to 
4A2 13224 { the page tabie and return an abnormal status; job mode will reissue the request. : 
4A2 13225 
4A2 13226 mmp$make_pt_entry (destination sva, pfti, destination_aste_ p, destination _pfte_p, mpt_status) ; 
4F8 13227 IF mpt_status = mmc$mpt_page_ table full THEN 
$00 13228 mmv$asyne_work.pt_full_aste_p :: destination_aste_p; 
500 13229 mmv$async_work.pt_full_sva :5 destination_sva; 
$00 13230 mmv$async_work.pt_full := TRUE; 
§0°0 13231 mmv$time_to_call_mem_mgr :=: 0; 
500 13232 osv$time_to_ check _asyn := 0; 
$00 13233 destination_pfte_pA.aste_p := source _aste_p; 
§00 13234 destination_pfte_ pA.sva := source sva; 
§00 13235 mmp$make_pt_entry (source _sva, pfti, source_aste_p, destination_pfte_p, mpt_status) ; 
550 13236 IF mpt_status <> mmc$mpt_done THEN 
558 13237 mtp$error_ stop (’MOVE MODIFIED SERVER_PAGE -- COULD NOT REMAKE PAGE TABLE ENTRY’); 
§78 13238 IFEND; 
578 13239 mmv$pt_pA [destination _pfte_pA.pti].m := TRUE; 
578 13240 mmv$pt pA [destination_pfte_pA.pti].v :* save_valid; 
578 13241 mtp$set_status_ abnormal (’MM’, mme$page_table_ full, rb.status); 
$878 13242 IF leock_encountered THEN 
SBA 13243 mmp$purge_alil_cache_proc; 
5C2 13244 IFEND; 
$C2 13245 RETURN ; 
5SC4 13246 IFENO; 
5C4 13247 
5€4 13248 { Relink the page into the destination’s queue. 
5C4 13249 
5C4 13250 mmp$relink_page_ frame (pfti, mmc$pq_wired) ; 
SDA 13251 mmv$pft_pA [pfti].ijl_ordinmal:= cst_pA.ijl_ordinal; 
SDA 13252 mmp$relink_ page frame (pfti, destination_aste_p4.queue_id); 
61A 13253 
614 13254 mmv$pt_ pA [destination_pfte_ pA.pti].v := TRUE; 
61A 13255 mmv$pt_pA [destination_pfte_ pA.pti].m : = TRUE; 
614A 13256 
61A 13257 IF lock encountered THEN 
642 13258 mmp$purge_all_cache_proc; 
640A 13259 IFEND; 
64A 13260 
644A 13261 rb.byte_ offset := source sva.offset ; 
644A 13262 
64A 13263 PROCEND mmp$move_modified_ server _ page; 
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NAME : 
MMPSMTR_R1_SERVER_SEG REQUEST 
PURPOSE : 
This procedure processes some ring 1 requests for server segments. 
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PROCEDURE [XDCL] mmp$mtr_r1_server_seg request 
(VAR rb: mmt$rb_ringi_server_seg request ; 
cst_p: Aost$cpu_state_tabie); 


VAR 
able: boolean, 
asid: ost$asid, 
aste_p: AmmtS$active_segment_table_entry, 
asti: mmt$ast_index, 
fde_p: gft$locked _file_desc_entry_p, 
ijle_p: Ajmt$initiated_job_list_entry, 
inhibit_io: boolean, 
mcount: integer, 
pfti: mmt$page_frame_index, 
rcount: integer, 
save_v: boolean, 
xsva: ost$system_virtual_address; 


CASE rb.request OF 
= mmc$ssri_flush_ delete seg _ sfid, mmc$ssri_free delete seg sfid = 
rb.pages_ not _ deleted := 0; 
Do nothing. This is normal. 


= mmc$ssri_move_ modified df page = 

mmp$move_modified server _page (rb, cst_p); 

RETURN; 
ELSE 

mtp$error_ stop (’MM - Unknown request - mmp$mtr_r1_ server _seg request’); 
CASEND; 


#### This will not work--if the sfid is not good, get fde_p will crash. 
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Entering monitor with the FDE locked in job mode will greatly increase chances so that the sfid WILL be good 


and thus avoid a crash in gfp$mtr_get_locked_fde_p. This procedure is called from DEACT TERM_SERVER_ FILE 


the module DFMSRECOVERY SERVICES. 


gfp$mtr_get_ locked fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 
mmp$get verify asti_in_fde (fde_p, rb.sfid, cst _p%.ijl_ordinal, asti); 
IF (asti = 0) OR (fde_pA.attach_count = © ) THEN 

RETURN; 
IFEND; 


mmp$asid (asti, asid); 

xSva.asid : = asid; 

xSva.offset :=: 0; 

aste_p := AmmvS$ast_p4” [astil]; 

mmp$initialize find _next_pfti (xsva, 7FFFFFFF(1E), include _partial_pages, psc_all, aste_p, pfti); 


WHILE pfti <> © DO 


in 
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1D8 13321 IF (mmv$pft_pA [pfti].aste_p <> NIL) AND (mmv$pft_p’ [pfti].aste_p%.sfid = rb.sfid) THEN 
20C 13322 mmp$get_inhibit_io_status (mmv$pft_pA [pfti].ijl_ordinal, TRUE {lock aj1l}, inhibit_io, ijle_p); 
32A 13323 IF NOT inhibit_io THEN 
332 13324 save_v := mmv$pt_pA [mmv$pft_pA [pftil].ptil.v; 
332 13325 mmv$pt_pA [mmvS$pft_pA [pFfti].pti].v := FALSE; 
332 13326 mmp$sva_purge_all_page_map (mmv$pft_pA [pftil].sva); 
386 13327 IF (NOT mmv$pt_pA [mmv$pft_pA [pfti].pti].m) AND (mmv$pft_pA [pfti].locked_ page = mmc$1p_not_ locked) 
3CA 13328 AND (mmv$pft_pA [pfti]l.active_io_count = 0) THEN 
3CA 133298 mmp$delete_pt_entry (pfti, TRUE); 
30E 13330 mmp$relink_page_frame (pfti, mmce$pq_ free); 
3FA 13331 ELSEIF mmv$pt_p4 [mmv$pft_pA [pfti].pti].m AND (mmv$pft_pA [pfti].locked page = mmc$1p_not_ locked) 
440 13332 AND (mmv$pft_p% [pfti].queue_id > mmc$pq_first_valid_in_pt) THEN 
440 13333 IF rb.request = mmc$ssri_fiush_delete seg sfid THEN 
448 13334 
448 13335 { MMPSREMOVE PAGE FROM_JWS does not neccessarily write the page to disk. If it doesn’t we may 
448 13336 { have a problem in the future when we really want the page to go out to disk. 
448 13337 
448 13338 mmv$pt_pA [mmv$pft_pA [pfti].pti].v := save_v; 
448 13339 mmp$remove_page_from_jws (pfti, cst _pr.ijle_p, mcount, rcount),; 
476 13340 rb.pages not _deileted := rb.pages not _deieted + 1; 
484 13341 ELSE {rb.request = mmc$ssri1_free_ delete seg sfid } 
484 13342 mmp$delete_pt_entry (pfti, TRUE); 
498 13343 mmp$relink page _ frame (pfti, mmc$pq_ free); 
4BO 13344 IFEND; 
4B4 13345 ELSEIF rb.request = mmc$ssri_flush_delete seg sfid THEN 
4BC 13346 mmv$pt_pA [mmv$pft_p [pfti] .pti].v := save_v; 
4BC 13347 rb.pages_ not_deleted := rb.pages_ not_deleted + 1; 
4F4 13348 IFEND; 
4F4 13349 jmp$uniock_ajl (ijle_p); 
SAE 13350 ELSE { inhibit io 
SOE 13351 IF rb.request = mmc$ssri_filush_delete_seg sfid THEN 
5B6 13352 rb.pages_ not_deleted := rb.pages_ not_deleted + 1; 
§CO 13353 IFEND; 
SCO 13354 IFEND; 
§co 13355 IFEND; 
5CO 13356 mmp$find_next_pfti (pfti); 
614 13357 WHILEND; 
620 13358 
620 13359 IF aste_p <> NIL THEN 
62A 13360 IF aste pA.pages_in_memory = © THEN 
632 13361 mmp$change_asid (aste_p, asid, ©, 0); 
652 13362 mmp$free_asid (asid, aste_p); 
664A 13363 IFEND; 
666A 13364 IFEND; 
66A 13365 
660A 13366 PROCEND mmp$mtr_ri_server seg request ; 
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13369 
13370 
13371 
13372 
13373 
13374 
13375 
13376 
13377 
13378 
13379 
13380 
13381 
13382 
13383 
13384 
13385 
13386 
13387 
13388 
13389 
13330 
13391 
13392 
13393 
13394 
13335 
13396 
13397 
13398 
13399 
134006 
13401 
13402 
13403 
13404 
13405 
13406 
13407 
13408 
134098 
13410 
13411 
13412 
13413 
13414 
13415 
13416 
13417 
T3418 
13419 
13420 
13421 
13422 
13423 
13424 


{name: 

{ mmp$mtr_ring!i_segment_request 

{purpose: 

{ This procedure some ring 1 requests for segments. 


PROCEDURE [XDCL] mmp$mtr_ringi_segment_request 
(VAR rb: mmt$rb_ringt_segment_request ; 
cst_p: Aost$cpu_state_ table) ; 


VAR 
asid: ost$asid, 
asid_can_be_deleted: boolean, 
aste_p: Ammt$act ive _ segment _ table _ entry, 
asti: mmt$ast_index, 
fde_p: gft$locked file _ desc_entr 
first_image_ pfti: 0 .. OF FFFFFFTF 
i: integer, 
ijle_p: Ajmt$initiated_job_list_entry, 
io _ already active: boolean, 
io _count: mmt$active_io_ count, 
io_id: mmt$io_identifier, 
j: integer, 
last _written_pfti: mmt$page_ frame_index, 
nowait_wait: [STATIC] array [boolean] of ost$wait := [osc$nowait, osc$wait], 
Old _sfid: gft$system_file_identifier, 
page count: integer, 
pfti: mmt$page_frame_index, 
sdte_p: Ammt$segment_descriptor, 
sdtxe_p: Ammt$segment_descriptor extended, 
sva: ost$system_virtual_address, 
wmp_status: mmt$write modified pages status, 
unrecovered_ files: [STATIC] integer := 0, 
unrecovered pages: [STATIC] integer 2 0; 


YUP. 
(16), 


#KEYPOINT (osk$entry, osk$m * $INTEGER (rb.request), mmk$ringi_segment_request ) ; 
io_id.specified := FALSE; 
mmv$ring!_ request trace [$INTEGER (rb.request)] := mmv$ringi_ request trace [$INTEGER (rb.request)] + 


rb.status.normal := TRUE; 
Sva.asid := 0; 


/request/ 

BEGIN 

CASE rb.request OF 

= mme$sri1_ detach _ file = 
gfp$mtr_get_locked_fde_p (rb.sfid, cst_p4.ijle_p, fde_p); 
mmp$get verify _asti_in_fde (fde_p, rb.sfid, cst _pA.ijl_ordinal, asti); 
IF asti <> © THEN 

aste_p := Ammv$ast_pA [astil; 


1; 
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1A4 13425 IF (fde_pA.queue status = gfc$qs_job_shared) AND (aste_p4.queue_id <= mmc$pq_shared_last) THEN 

1C8 13426 

1€8 13427 { The file is job-Shared so there can be no modified pages; the pages are already in the shared queue so 

1€8 13428 { they do not need to be removed from a job working set. Therefore, nothing needs to be done. 

108 13429 

1C8 13430 EXIT /request/; 

1¢¢€ 13431 IFEND; 

1CC 13432 mmp$asid (asti, asid); 

1E8 13433 Sva.aSid := asid; 

1F4 13434 ELSE 

1F4 13435 EXIT /request/; 

1F& 13436 IFEND; 

1FC 13437 

1FC 13438 = mmc$sri_delete_ seg sfid, mmce$sri_flush_delete_seg sfid = 

TFC 13439 gfp$mtr_get_locked fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 

284 13440 mmp$get_verify_asti_in_fde (fde_p, rb.sfid, cst_p4%.ijl_ordinal, asti); 

2E2 13441 IF asti <> © THEN 

2EA 13442 mmp$asid (asti, asid); 

302 13443 Sva.asid := asid; 

302 13444 aste_p :: Ammv$ast_p’” [astil; 

31E 13445 ELSE 

S1E 13446 EXIT /request/; 

322 13447 IFEND; 

326 13448 

326 13449 = mmc$sri_detete_job_seg by_sfid = 

326 13450 ofp$mtr_get locked fde_p (rb.sfid, est_p4.ijle_p, fde_p); 

SAE 13451 mmp$get_verify asti_in_fde (fde_p, rb.sfid, cst_p4.ijl_ordinal, asti); 

40C 13452 IF (asti = 6) OR (mmv$ast_p’ [asti].ijl_ordinal <> est_p%.ijl_ordinal) THEN 

42E 13453 EXIT /request/; 

432 13454 IFEND; 

432 13455 mmp$asid (asti, asia); 

44E 13456 Sva.asid := asid; 

44E 13457 aste_p :: AmmvS$ast_pA [astil]; 

46A 13458 

464 13459 = mmc$sri_filush_avail modified = 

46A 13460 gfp$mtr_get_fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 

402 13461 mmp$get_verify_asti_in_fde (fde_p, rb.sfid, cst_p4.ijl_ordinal, asti); 

S2E 13462 IF asti <> © THEN 

536 13463 mmp$asid [(asti, asid); 

S4E 13464 mmp$replenish_free queues (asid) ; 

562 13465 IFEND ; 

562 13466 EXIT /request/; 

S6A 13467 

S6A 13468 = mmc$sri_get_highest_offset = 

S6A 13469 rb.highest_ offset :=: 0; 

56A 13470 gfp$mtr_get_ locked fde_p (rb.file_sfid, cst_pA.ijle_p, fde_p); 

SFE 13471 mmp$get_verify_asti_in_fde (fde_p, rb.file_ sfid, cst_p%.ijl_ordinal, asti); 

652 13472 IF asti = O THEN 

65A 13473 EXIT /request/; 

65E 13474 IFEND; 

65E 13475 aste_p := Ammv$ast_pA [astil]; 

65E 13476 pfti :* aste pA.pft_link.fwd; 

65E 13477 

65E 13478 /J\oecate_highest_offset/ 

6SE 134793 WHILE pfti <> Oo DO 

672 13480 IF mmv$pft_p [pfti].sva.offset > rb.highest_offset THEN 

( & 
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13481 
13482 
13483 
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13486 
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13488 
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ear es ott 


rb.highest_offset := mmv$pft_pA [pfti].sva.offset; 
IFEND; 
pfti :=: mmv$Spft_pA [pfti].segment_link. fwd; 


WHILEND /locate_highest_offset/; 
EXIT /request/; 


mmc$sri delete seg segnum, mmc$sri_flush_seg segnum = 
sdtxe_p := mmp$get_sdtx_entry_p (cst_p4.xcb_p, rb.segnum) ; 
gfp$mtr_get_locked fde_p (sdtxe_pA.sfid, cst_p%.ijle_p, fde_p); 
mmp$get_verify_asti_in_fde (fde_p, sdtxe_pA.sfid, cst _p*.ijl_ordinal, asti); 
IF asti <> O THEN 

mmp$asid ({asti, asid); 


Sva.aSid :: asid; 
aste_p := Ammv$ast_p [astil]; 
ELSE 
EXIT /request/; 
IFEND; 
mmc$sri1_ocommit_memory = 
first_image_pfti := osv$180_memory_limits.deadstart_upper DIV osv$page_size; 
FOR pfti := first image pfti TO UPPERBOUND (mmv$pft_p4) DO 
IF mmv$pft_pA [pftil]l.queue_id = mmc$pq_free THEN 
mmv$reassignable_page_frames.soon := mmv$reassignable page _frames.soon + 1; 
mmp$link_page_frame_to_ queue (pfti, Ammv$pft_pA [pfti]); 
IFEND; 
FOREND; 


mmv$image_ file.active :: FALSE; 
EXIT /request/; 


mmc$sri_free_image_pages = 
mmp$free_image_pages_mtr ; 
EXIT /request/; 


mmc$sri_ replace sfid = 


aste_p := NIL; 
IF (rb.asti <> 0) AND (rb.asti <= UPPERBOUND (mmv$ast_p4)) THEN 
IF mmv$ast_p’ [rb.asti].in_use THEN 
IF mmv$ast_pA [rb.asti].sfid = rb.new_sfid THEN {sfid already replaced 
EXIT /request/; 
ELSEIF mmvSast_pA [rb.asti].sfid = rb.old_sfid THEN 
aste_p := Ammv$ast_p’ [rb.asti]; 
IFEND; , 
IFEND; 
IFEND; 


/ast_search/ 
“BEGIN 
IF aste_ p = NIL THEN 
Old sfid :=* rb.otd sfid; 


The SFID of a permanent file which is awaiting recovery is updated in the ast entry with the new SFID. 
(The new SFID residence is also gft$tr_system_wait_recovery. } 
If the ast index passed in is not correct, the AST must be searched. 


#### IT believe IJL ordinals do NOT have to be checked because these can only be perm files. CORRECT??? 
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9AA 13537 FOR asti := LOWERBOUND (mmv$ast_p4) TO UPPERBOUND (mmvSast_p’) DO 

sc& 13538 IF mmv$ast_p’ [asti].in_use AND (mmv$ast_pA” [asti].sfid = old _sfid) THEN 

SEE 13539 rbo.asti := asti; 

SEE 13540 aste_p :5 Ammv$ast_pA [asti]; 

SEE 13541 EXIT /ast_search/; 

9F8 13542 . IFEND; 

9F8 13543 FOREND; 

9FC 13544 IFEND; 

9FC 13545 END /ast_search/; 

SFE 13546 

9FE 13547 IF aste_p = NIL THEN 

AO4 13548 EXIT /request/; 

AO8& 13549 IFEND; 

AOS 13550 

AO8 13551 aste_ pA.sfid := rb.new_sfid; 

AoO8 13552 gfpS$mtr_get_ locked _fde_p (rb.new_sfid, cst_pA.ijle_p, fde_p); 

ASC 13553 fde_ pArA.asti :5 rb.asti; 

ASC 13554 EXIT /request/; 

ABO 13555 

ABO 13556 = mmc$sri_end_job_recovery = 

ABO 13557 

ABO 13558 FOR pfti := LOWERBOUND (mmv$pft_p%) TO UPPERBOUND (mmv$pft_pA) DO 

AD4 13559 IF (mmv$pft_pA [pfti].aste_p <> NIL) AND 

BO8 13560 (mmv$Spft_pA [pfti].aste_pA.sfid.residence = gfc$tr_system_wait_recovery) AND 

Bos 13561 (mmv$pft_pA [pfti].queue_id <> mmc$pq_free) THEN 

BO8 13562 asid := mmv$pft_ pA [pfti].sva.asid; 

BO8 13563 aste_ p := mmv$pft_ pA [pfti].aste_p; 

BOS 13564 jmp$get_ijle_p (mmv$pft_p% [pfti].ijl_ordinal, ijle_p); 

BO&8 13565 IF (ijle_p4A.swap_status >= jmcS$iss_initiate_swapout_io) AND (ijle_p4A.swap_status <= 

B48 13566 jmc$iss_swapout_io_complete) THEN 

B48 13567 tmp$reissue_monitor_request ; 

B50 13568 tmp$cause_task_switch; 

B58 13569 IFEND; 

B58 13570 mmp$delete pt_entry (pfti, TRUE); 

B6C 13571 mmp$relink_page_ frame (pfti, mmc$pq_free) ; 

B&8O 13572 IF aste_ pA.pages_in_memory = ©O THEN 

B88 13573 mmp$free_asid (asid, aste_p); 

BAO 13574 unrecovered files := unrecovered files + 1; 

BAA 13575 IFEND; 

BAA 13576 unrecovered pages := unrecovered_ pages + 1; 

BAA 13577 IF (Cijle_pA.swap_status >= jmc$iss_job_idie_tasks_ complete) AND 

BD& 13578 (ijle_p4.swap_status <= jmc$iss_swapped_io_cannot_init)) OR 

BO8 13578 (ijle_pA.swap_status = jmc$iss_Swapped_io_complete) THEN 

BD8 13580 isp$recaiculate swapped pages (ijle_p, 1); 

BFO 13581 IFENOD; 

BFO 13582 IFENO; 

BFO 13583 FOREND ; 

BF4 13584 

BF4& 13585 rb.unmrecovered files := unrecovered files; 

BF4 13586 rb.unmrecovered pages := unrecovered pages; 

BF4 13587 EXIT /request/; 

C10 13588 

C10 13589 = mmc$sri_make_mfw cache = ; 

C10 13590 mtv$monitor segment _table.st [#segment (osv$mainframe_wired heap)].ste.vi :=: 

C10 13591 osc$vl_regular_segment ; 

C10 13592 mtv$nos_segment_table_ p’%.st [#segment (osv$mainframe_wired_hneap)].ste.vl := 
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osc$vl_regular_segment ; 
#PURGE BUFFER (osc$purge_all_page_seg_ map, sva); 
EXIT /request/; 


= mmcS$sri_remove_job_ shared pages = 
gfp$mtr_get_locked_ fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 
IF fde_pA.asti <> O&O THEN 
mmp$remove_ jws_to_shared_ pages (fde_p, cst_p, rb); 
IFEND; 
EXIT /request/; 


> mmc$sri_change_swap_file queue = 
gfp$mtr_get_locked_fde_p (rb.sfid, cst_pA.ijle_p, fde_p); 
mmp$get_verify_asti_in_fde [(fde_p, rb.sfid, cst_p4.ijl_ordinal, asti); 
IF asti <> © THEN 
mmv$ast_pA [asti].ijl_ordinal := jmv$system_ijl_ordinal; 
mmv$ast_ pA [asti].queue_id := mmc$pq_shared_pf_non_execute; 
IFEND ; 
fde p%.queue_ status := gfc$qs_global_shared; 
EXIT /request/; 


ELSE 
mtp$set_status_ abnormal (‘MM’, mme$invalid_request, rb.status) ; 
EXIT /request/; 


CASEND; 
sva.offset := 0; 
asid_can_be deleted := NOT ((rb.request = mmc$sri1_detach_ file} OR 


(rb.request = mmc$sri1_ftush_seg segnum) }); 
IF asid_ can _be_ deleted AND fde_pA.flags.global_template file THEN 


C{'t!lrtttitThis check is required in order to run multiple job templates. It may be worth 
{ some time to look into the file kinds of multiple job template segments. There appear to 
{ some strange uses of file kind. 


IF NOT Syv$user_ templates THEN 
mtp$error_stop (’MM - tried to delete template segment’); 


IFEND; 
IFEND ; 
IF (rb.request = mmc$sri_detach_file) OR (rb.request = mmc$sri_flush_delete_seg sfid) OR 
(rb.request = mmc$sri_flush_ seg segnum) THEN 
mmp$Smm_write modified pages (sva, 7fFfFFFFO(16), fde_p, aste_p, ioc$write_page, rb.init_new_io, 


(rb.request = mmc$sri_detach_file), 
io_id, io count, io _already active, last_written_pfti, wmp_ status) ; 
mmpSprocess_ wmp_ status (wmp_status, last _written pfti, nowait_wait [rb.wait_for_io_complete], 
rb.init_nmew_io, rb.status); 
IF ((wmp_status <> mmc$wmp_io_compiete) AND (wmp_status <> mmc$wmp_io_active)) OR 


((wmp_ status = mmc$wmp_io_active) AND rb.wait_for_io_complete) THEN 
asid_can_be_deleted := FALSE; 
IFEND; 
IFEND; 


IF asid_can_be_deleted THEN 

fde_ pA.asti := 0; 

mmpSmm_free pages (sva, 7FFFFFFF(IE), aste_p, TRUE, page_count); 
IFEND; 


:34 
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FA& 13649 

FA4 13650 END /request/; 

FA& 13651 

FAS 13652 #KEYPOINT (osk$exit, osk$m * S$INTEGER (rb.request), mmk$ringi_segment_ request) ; 

FB4 13653 

FB4 13654 PROCEND mmp$mtr_ring1_segment_request ; 

Oo 13655 
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© 13659 { This request returns the segment number and maximum segment length of the 
© 13660 { stack segment for the ring number specified by the caller. It sets the 
© 13661 { stack segment length to zero if requested. This request is available in 
© 13662 { Monitor Mode only. 

© 13663 f{ 

© 13664 { MMPSFETCH_ STACK SEGMENT_INFO (XCB_P, RING, SET_LENGTH, SEGNUM, 

© 13665 { LENGTH, FOUND); 

o 13666 f{ 

© 13667 { XCB_P: (input) This parameter specifies a pointer to the execution control 
o 13668 { block of the task. The task must be Swapped in. 

© 13669 { 

© 13670 { RING: (input) This parameter specifies the ring number of the stack. 

o 13671 { 

© 13672 { SET_LENGTH: (input) This parameter specifies whether or not to set the 

o 13673 { length of the stack to zero. 

© 13674 { 

© 13675 { SEGNUM: (output) This parameter returns the segment number for the stack 
© 13676 { segment of the specified ring. 

© 13677 { 

© 13678 { LENGTH: (output) This parameter returns the maximum size allowed for the 
o 13679 { stack. 

© 13680 { 

© 13681 { FOUND: f(output) This parameter returns whether or not the stack was 

© 13682 { found. 

© 13683 { 

© 13684 

© 13688 [wet etm ee ewer ewe wwe ne a A aN a aac a el le cd woe nee 

© 13686 

© 13687 

© 13688 PROCEDURE [XDCL] mmp$fetch_stack_segment_info 

© 13689 ( xcb_p: Aost$execution_control block; 

© 13690 ring: ost$valid_ring; 

© 13691 set_length_to_ zero: boolean; 

Oo 13692 VAR stack _segment_number: ost$segment ; 

o 13693 VAR maximum_segment_ length: ost$segment_iength; 

© 13694 VAR found: boolean); 

oO 13695 

© 13696 VAR 

© 13697 fde_p: gft$locked file desc_entry_ p, 

Oo 13698 ijl_ordinal: jmt$ijl_ordinal, 

o 13699 ijle_p: AjmtS$initiated_ job_list_entry, 

© 13700 limit: amt$file_ limit, 

Oo 13701 sdt_p: mmt$max_sdt_p, 

Oo 13702 sdtx_p: mmt$Smax_sdtx_p, 

© 13703 segnum: ost$segment, 

© 13704 status: syt$monitor_ status; 

Oo 13705 

© 13706 tmp$obtain_ijl_ordinal_from_pti (xcb_p4.global_task_id, ijl_ordinal); 
24 13707 imp$get_ijle_p (ijl_ordinal, ijle_p); 

24 13708 mmp$get_max_sdt_sdtx pointer (xcb_p, sdt_p, sdtx_p); 

24 13709 

24 13710 FOR segnum := 0 TO xcb_pA.xp.segment_table_ length DO 

$2 13711 IF (mmc$sa_stack IN sdtx_pA.sdtx_table [segnum].software_ attribute set) AND 
ca 13712 {sdt_p4A.st [segnum].ste.r1 = ring) THEN 


C4 13713 found := TRUE; 


1888-08-21 


1989-08-21 


o 
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stack_segment_number := segnum; 


gfp$mtr_ get _locked_fde_p (sdtx_p%.sdtx_table [segnum].sfid, ijle_p, 


maximum segment length := fde _ pA.file Timit ; 
IF set_length_to_zero THEN 


mmp$update_eoi (fde_p, 0, mmc$uer_set_exact_eoi); 


IFEND ; 

RETURN; 
IFEND; 
FOREND; 


found := FALSE; 


PROCEND mmpS$fetch_stack_segment_info; 
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PMOKDKDKCKODCDDDGAOCDDDAACKCGDDCDDGDGDGCGODDDCGD0CGDGDDCGDODGCNOGOGCao0odgoooOao0 ooo c8 


13729 { 


13730 {This procedure 


13731 { 
13732 { 
13733 { 


13777 
13778 
13779 
13780 
13781 
13782 
13783 


MMPSPERIOOIC CALL 


PROCEDURE [XDCL] mmp$per iodic_cal1; 


VAR 
fde_p: gft$locked file_desc_entry_p, 
aste_p: Ammt$active segment _table_ entry, 
jcb_p: Ajmt$job_controi_block, 
ajlo: jmtS$ajl_ordinal, 
inhibit io: boolean, 
clock: ost$free_ running clock, 
cptime: integer, 
new_asid: ost$asid, 
new_asti: mmt$ast_index, 
new_aste_p: Ammt$act ive _ segment table entry, 
pfti: mmt$page_ frame_index, 
ijle_p: Ajmt$initiated_job_list_entry, 
pt_full_status: mmt$pt_full_ status, 
taskid: ost$globail_task_id, 
mcount: integer, 
recount: integer, 
aggressive_aging: boolean, 
maxws_left for_user_jobs: mmt$page_frame_index, 
dp: jmt$dispatching priority, 
i: integer, 
idle candidates: jmt$dispatching priority set, 
total_idie: ost$free_ running clock, 


user_dp_set: [STATIC] jmt$dispatching priority set 


17,8,8,10,11,12,13,14], 
queue: mmt$page_frame_queue_id, 
temp_max_ working set_size: mmt$page_frame_index, 
temp_target: mmt$page_frame_index, 
time_last_idle_ dispatching scan: [STATIC] integer 


is called periodically to age the Shared Page Queues. 


fde_p); 


1989-08-21 


1989-08-21 


>= $jmt$dispatching priority set 


:= §000000, 


time_last_shared_queue_scan: [STATIC] integer := 5000000, 
time_last_full_jws_ scan: [STATIC] integer := 5000000, 


time_next_free_astes: [STATIC] integer := oO, 
time _next_scan_wait_not_queued: [STATIC] integer 
pass: integer, 

pti: ost$page tabile_index, 

asid: ost$asid, 

asti: mmt$ast_index, 

system_jws: mmt$page_frame_index; 


#KEYPOINT (osk$entry, ©, mmk$periodic_cali); 


13784 {Age the shared and job working set queues if necessary: 


:= §00000000, 


13:33:34 


13:33:34 
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MMPGPERIODIC CALL 
8 13785 { Shared - aged every few seconds 
8 13786 { job (algorithm 0) - aged every few seconds and ali pages not referenced since last time 
8 13787 { are removed 
& 13788 { job (algorithm 1) - every few seconds a scan is made of each job. If job has used a TICKTIME of 
8 13789 { cp time, the working set is aged same as though a page fault occurred. 
&8 13780 [{***NOTE - if system is real low on free/avail pages, aging is forced even if not necessary. 
8 13791 
8 13792 { Set the global maximum working set to the number of pages available to user jobs. 
8 13793 { The size of a job’s working set will be constrained to the lesser of the global maximum working set 
8 13794 { and the maximum working set size value in the job control block, which is determined by the class attribute. 
8 13795 { The value for the giobal maximum working set is the largest working set the system can accommodate. Since 
8 13796 { the System Job is also limited by the global maximum working set (mmv$max_working set_size) the System Job 
8 13797 { is effectively limited to 50% of the available space. If the System Job is the only job, the maximum is 
8 13798 { calculated as the maximum space available to the system job (although it is unlikely to grow that large). 
8 13799 
8 13800 IF jmv$max_class_working set = © THEN { =O when system job is the onty job.} 
14 13801 system_jws :5= 0; 
1E 13802 ELSE 
1E 13803 get_system_jobs_ working set (system_jws) ; 
5E 13804 IFEND; 
SE 13805 maxws left _for_user jobs := mmv$total_page_frames - mmv$gpqi [mmc$pq_wired].pqie.count - 
5E 13806 mmv$gpqi [mmc$pq_sShared_io_error].pqie.count - system_jws; 
SE 13807 FOR queue := mmce$pq_shared_ first TO mmv$last_active_ shared queue DO 
8&8 13808 maxws left _for_user_ jobs := maxws_left_for_user_jobs - mmv$gpqi [queue].pqie.count; 
88 13808 FOREND ; 
96 13810 IF jmv$max_class_working set < maxws_left_for_user_ jobs THEN 
SE 13811 temp_max_working set size := jmv$max_class_working_ set; 
A2 13812 ELSE 
A2 13813 temp_max_ working set size :5 maxws_left_for_user_ jobs; 
A&4 13814 IFEND; 
AS 13815 temp_target := (temp_max_working set_size * jsv$swapped_page_entry_ size DIV 
A4 13816 osv$page_size + 1) + mmv$aggressive_aging level; 
44 13817 IF temp_target >» jmv$job_scheduler_table.scheduling memory _ levels.target THEN 
DO 13818 mmv$resident_job_target := temp_target; 
pC 13819 ELSE 
pC 13820 mmv$resident_job_target := jmv$job_scheduler_table.scheduling memory levels.target ; 
E4 13821 IFEND; 
E4 13822 mmv$max_ working set_size := maxws_left_for_user_jobs - mmv$resident_job_ target; 
E4 13823 IF mmv$max_working set size < 10 THEN 
F&8 13824 mmv$max_ working set size := 10; 
FC 13825 IFEND; 
FC 13826 
FC 13827 { Mark any non-dispatchable dispatching priorities as blocked in the idie dispatching controls. 
FC 13828 { Clear the blocked field and swapin jobs for priorities which were blocked, but can now be 
FC 13829 { dispatched. NOTE: A dispatching priority in a SET is converted so that the highest dispatching 
FC 13830 { priority in the SET corresponds to the leftmost bit in the SET. (See jmt$dispatching_ priority.) 
FC 13831 
FC 13832 clock :© #free_ running clock (0); 
102 13833 IF (clock - time_last_idile dispatching scan) >» jmv$scan_idile_dispatch_interval THEN 
116 13834 FOR i :2 O© TO f(osv$cpus_physically_ configured - 1) DO 
126 13835 IF mtv$cstoO [i].processor_state = cmc$on THEN 
13C 13836 total_idie := mtv$csto [i]l.cpu_idie_statistics.idle_nmo_io_active + 
14A 13837 mtv$cstoO [i].cpu_idle_statistics.idle_io_ active; 
14A 13838 IFEND; 
146A 13839 FOREND ; 
14E 13840 IF (total_idie > jmv$idle_dispatching controls.controits [0].last_cp_time) OR 
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176 
176 
176 
176 
176 
176 
176 
188 
188 
188 
188 


13841 

13842 

13843 
13844 
13845 

13846 

13847 

13848 

13849 

13850 
13851 

13852 
13853 

13854 

13855 
13856 
13857 
13858 
138593 

13860 
13861 

13862 
13863 
13864 
13865 
13866 
13867 
13868 
13869 
13870 
13871 

13872 
13873 
13874 
13875 
13876 
13877 
13878 
13879 
13880 
13881 

13882 
13883 
13884 
13885 
13886 
13887 
13888 
13889 
13890 
13891 
13892 
13893 
13884 
138695 
13896 


(( jmv$idie_dispatching_controls.unblocked priorities * tmv$dispatching controi_ 
imv$idie_dispatching_ controis.maximums_ exceeded = $jmt$dispatching priority set []) THEN 


{ Unblock all idied dispatching priorities. 


imv$idie_ dispatching controls.unblocked priorities := user _dp_set; 
FOR dp := jmc$priority pi TO jmc$priority_p& DO 
imv$idle_ dispatching controls.controls [dp].blocked := FALSE; 
jmv$idle_ dispatching controls.controls [dp].timestamp := clock; 


sets.ready_tasks) 


imv$idile_dispatching controls.controls [dp].last_cp_time := tmv$cpu_execution_statistics [dp]. 
time_spent_in_job_mode + tmv$cpu_execution_statistics [dp].time_spent_in_mtr_mode; 


FOREND; 

imp$set_scheduler_event (jmc$examine_swapin_queue) ; 

jmp$set_scheduler_event (jmc$examine_input_queue}) ; 
ELSE 


{ Checked for blocked priorities. 


idie_candidates := (user_dp_set - tmv$dispatching_ controls.minimums_to_satisfy) #* 


tmv$dispatching control _sets.ready tasks; 


FOR dp := jmc$priority_pi TO jmc$priority_p& DO 


PAGE 


IF NOT (( jmc$dp_conversion - dp) IN idle_candidates) OR (jmv$idle_dispatching controls.controls [dp] 


.last_cp_time <> (tmv$cpu_execution_statistics [dp].time_spent_in_job_mode + 


tmv$cpu_execution_ statistics [dp].time_spent_in_mtr_mode)) THEN 


imv$idie_ dispatching _controls.controls [dp].last_cp_time : > tmv$cpu_execution_ statistics 


[dp] .time_spent_in_job_mode + tmv$cpu_execution_statistics [dp]. 
time _spent_in_mtr_mode; 
jmv$idie dispatching _controls.controls [dp].timestamp := clock; 


ELSE 


IF (( jmv$idle_ dispatching controls.controts [dp].timestamp + jmv$job_scheduler_ table. 


idle dispatching queue time) < clock) THEN 
jmv$S$idie_dispatching controls.controis [dp].blocked := TRUE; 


imv$idle dispatching controis.unblocked_ priorities := jmv$idle_dispatching_ controls. 


unblocked priorities - $jmt$dispatching_ priority_set [ jmc$dp_conversion 


IFEND ; 
IFEND; 
FOREND ; 
IFEND; 


imv$idie dispatching controls.maximums_exceeded := $jmt$dispatching_ priority set [J]; 


jmv$idile_dispatching_controls.controils [0].last_cp_time :+ total_idie; 
jmv$idie_dispatching controls.controls [0].timestamp := clock; 
time _last_idile dispatching scan := clock; 

IFEND; {time to scan idle dispatching} 


dp]; 


{ Insert timed _wait_nmot queued tasks into the timed wait queue if it is nearly time for them to be readied. 


clock := #free running clock (0); 

IF clock >= time _next_scan_wait not queued THEN 
time_next_scan_wait_mot_queved :=* clock + tmv$timed_wait_not_ queued; 
tmp$check_ timed_wait_not_queued (time _next_scan_wait_not_queued) ; 

IFEND; 


439 


4406 
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2EE 13897 mmp$maintain_memory_ thresholds; 
328 13898 
328 13899 aggressive_aging : = mmv$reassignable_page_frames.now + mmv$reassignable page frames.soon <= 
328 13900 mmv$aggressive_aging level + isvSpages_needed_for_sfd; 
328 13801 IF aggressive_aging THEN 
34C 13902 mmv$aging statistics.aggressive_age_ shared queue := mmv$aging statistics.aggressive_age shared queue +1; 
35A 13903 IFEND; 
35A 13904 
354A 13805 IF aggressive_aging OR ((#FREE_ RUNNING CLOCK (0) - time_last_shared_queue_ scan) > 
372 13906 mmv$shared_queue_age_ interval) THEN 
372 13907 jisp$adv_expired_ swapped_jobs (jsc$isqi_swapped_io_not_init); 
384 13908 jsp$adv_expired_ swapped_jobs (jsc$isqi_swapped_io_ completed) ; 
396 13909 FOR queue := mmc$pq_ shared _first TO mmv$last_active_shared_ queue DO 
3A4 13910 IF aggressive _ aging THEN 
3A8 138911 mmp$remove_stale_pages (mmv$gpq1i [queue].pqie, mmv$gpqi [queue]).age_ interval, NIL, NIL, 
3FO 13912 mmc$pq_avail_modified, ©, mcount, rcount); 
3FO 13913 ELSE 
3FO 13914 mmp$remove_stale_ pages (mmv$gpqi [queue] .pqie, mmv$gpql [queve].age_interval, NIL, NIL, 
438 13915 mmc$pq_avail_ modified, mmv$gpq1l [queve].minimum, mcount, rcount); 
438 13916 IFEND; 
438 13917 mmv$aging statistics.age_ unused _page_in_snared_ queue := mmv$aging statistics. 
438 13918 age_unused page_in_shared_ queue + rcount; 
438 13919 IF queue <= mmc$pq_ shared_last_sys THEN 
44C 13320 mmv$aging statistics.age_sys_shared queue [queue] := 
45A 13921 mmv$aging statistics.age sys _ snared queve[queue] + recount; 
45A 13922 IFEND; 
45A 13923 FOREND; 
4SE 13924 mmp$remove_stale_pages (mmv$gpqi [mmc$pq_shared_io_error].pqie, mmv$gpqi [mmc$pq_shared_io_error]. 
49E 13925 age_interval, NIL, NIL, mmc$pq_avail_modified, ©, mcount, rcount); {enforces "0" as minimum size 
49E 138926 time_last shared queue scan := #FREE RUNNING CLOCK (0); 
4AC 13927 IFEND; 
4Aac 13928 
4ac 139298 aggressive_aging := mmv$reassignable_ page _frames.now + mmv$reassignable_ page _frames.soon <= 
4AC 13830 mmv$aggressive_aging level + jsv$pages_needed_for_sfd; 
4AC 133831 IF aggressive aging THEN 
4D8 13932 mmv$aging statistics.aggressive_age_job_queues := mmv$aging statistics.aggressive_age_ job_queues + 1; 
4E6 13933 IFEND; 
4E6 13934 IF aggressive_aging OR mmv$reduce_jws_for_thrashing OR 
SOA 13935 ((#FREE RUNNING CLOCK (0) - time_last_full_jws_ scan) > mmv$ jws_queue_age_ interval) THEN 
50A 13936 
50A 13937 FOR ajlo := LOWERBOUND (jmv$aj1_p4) TO jmv$max_ajl_ordinal_in_use DO 
S1E 13938 tmp$set_lock (tmv$pt1_lock) ; 
556 13939 IF (jmv$ajl_pA [ajlo].in_use <> 0) AND (jmv$ajli_p4 [ajlo].ijle_p4.swap_status =: 
578 139340 imc$iss_executing) THEN 
578 13941 jmv$aji_p4 [ajlo].in_use := jmv$aj1_p4 [ajlo].in_use + jmc$lock_ajl; 
578 13942 tmp$clear_lock (tmv$pti_tlock) ; 
5B8 13943 ijle_p :* jmv$ajl_pA [ajlo].ijle_p; 
SB& 13944 IF ijle_pA.maxws_aio_ slowdown display > O THEN 
506 13945 ijle_pA.maxws aio slowdown display := ijle_pA.maxws aio slowdown _ display - 1; 
5D0C 13946 IFEND; 
so0C 13947 IF mmvS$aging aigorithm >= 4&4 THEN 
SEA 13948 cptime := ijle_pA.statistics.cp_time.time_spent_in_job_mode; 
SFE 13949 ELSE 
SFE 13950 cptime := ijle_pA.statistics.cp_time.time_spent_in_job mode + ijle_p%.statistics.cp_ time. 
606 13951 time_spent_in_mtr_mode; 
606 13952 IFEND ; 
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606 13953 jcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ajlo, 0); 

606 13954 IF jcb_p4A.next_cyclic_aging time < #FREE RUNNING CLOCK {0) THEN 

626 13955 mmp$remove_stale_ pages (ijle_pA.job_page_queue_ list [mmc$pq_job_working set], 1, jcb_p, ijle_p, 
668 13956 mmc$pq_avail_modified, jcb_p4A.min_working_set_size, mcount, rcount); 

668 13957 mmp$remove_stale_ pages (ijle_p’%.job_page_queue list [mmc$pq_ job_io_error], 30, jcb_p, ijle_p, 
6AO 13958 mmc$pq_avail_modified, ©, mcount, rcount); 

640 13959 IFEND; 

6AO 13960 IF (ijle_p4.swap_status = jmc$iss_executing) AND (ijle_p’.entry status = jmc$ies_job_in_memory) AND 
6cC 13961 (NOT jmv$ajl_p4 [ajlo].job_is_good_swap_candidate) THEN 

6CC 13962 IF ((#FREE_ RUNNING CLOCK (0) - jcb_p4A.last_execution_time) > tmv$long wait _force swap_time) AND 
BEC 13963 (ijle_pA.statistics.ready_task_count = 0) THEN 

SEC 13964 tmp$check_for_swapout candidate (ajlo)j; 

700 #13965 ELSEIF jmv$idie_ dispatching controls.controls [ijle_p4.scheduling dispatching priority] .blocked 
71C 13966 THEN 

71C 13967 tmpS$idle_non_dispatchable_ job (ajlo); 

72C 13968 IFEND; 

72C #13969 IFEND; 

72C 13970 IF aggressive_aging THEN 

730 13971 mmp$age_job_working set (ijle_p, jcb_p); 

74C 13972 ELSEIF cptime > (jcb_p4.cptime_next_age working set + 2 * jcb_pA.page_aging_ interval) THEN 

75E 13973 mmvS$aging statistics.age_cp_bound_job := mmvS$aging_ statistics.age_ cp _ bound _job + 1; 

75E 13974 mmp$age_job_working_ set (ijle_p, jcb_p); 

784 #13975 IFEND ; 

784 13976 jmp$untock_ajl (ijle_p); 

836 13977 ELSE 

836 13978 tmp$clear_lock (tmv$pt1_lock) ; 

86E 13978 IFEND; 

86E 13980 FOREND; 

872 13981 time_last_full_jws_scan := #FREE RUNNING CLOCK (0); 

880 13982 IFEND; 

88O 13983 

880 13984 


880 13985 {Call replenish free queue. 

88O 13986 

880 133887 mmup$replenish_free_ queues (0); 
890 13988 

890 138389 {Reclaim unused ast entries 

8930 13990 


830 13991 IF mmv$async_work.reclaim_astes THEN 

8g9C 13992 mmv$async_work.reclaim_astes : = FALSE; 

gsc 13993 mmp$recilaim_ast_entries (0); 

&8BO 13994 IFEND ; 

8BO 13995 

8BO 139396 {Process outstanding page table full conditions. 

8BO 13397 

8BO 13998 IF mmv$async_work.pt_full THEN 

8B8 13999 IF mmv$async_work.pt_full_aste_ pA.in_use THEN 

8C4 14000 

8C4 14001 IF jmp$ijil_block_valid (mmv$async_work.pt_full_aste_p4A.ijl_ordinal) THEN 

8F2 14002 mmp$get_inhibit_io_status (mmv$async_work.pt_full_aste pA.ijl_ordinal, FALSE {lock ajl}, 
930 14003 inhibit _io, ijle_p); : ; 
$30 14004 ELSE 

$30 14005 inhibit _io :: FALSE; 

934 14006 IFEND; 

$34 14007 


$34 14008 IF NOT inhibit _io THEN 
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g3C 140093 mmp$process page table _full (mmv$async_work.pt_full_sva, new_asid, new_asti, 
970 14010 new_aste_ p, pt_full_ status); 
$70 14011 IFENO; 
$70 14012 IFEND; 
$70 14013 mmv$async_work.pt_full := FALSE; 
$74 14014 IFEND; 
$74 14015 
974 14016 
$974 14017 {If tasks are in the memory wait queue, ready one task. This mechanism is NOT the normal mechanism 
974 14018 {for waking tasks in memory wait. Normally this is done as soon as the memory becomes availabie. This 
974 14018 {mechanism is a FAIL-SAFE mechanism in case 1) the task waiting for memory doesnt request it again 
$74 14020 {when it iS readied from the memory-wait queue, or 2) give critical tasks memory when sever thrashing occurs. 
$74 14021 
$74 14022 IF (mmv$memory wait_queue.head <> 0) AND (mmv$reassignable_page_ frames.now > ©) THEN 
98C 14023 tmp$dequeue task (mmv$memory wait _queue, taskid) ; 
$44 14024 IFEND; 
9A4 14025 
SA4 14026 IF osv$keypoint_control.periodic_ requested THEN 
9BO 14027 osp$process keypoint_periodic; 
$B8& 14028 IFEND; 
9B8 146029 
9B8 14030 {Update statistics. 
9B8 14031 
§9B& 14032 IF mmv$reassignable_page_frames.now + mmv$reassignable_page_frames.soon <= mmv$aggressive_aging level THEN 
§9D2 14033 mmv$aging statistics.aggressive_aging failed :: mmv$aging_statistics.aggressive_aging failed + 1; 
9EO 14034 IFEND; 
9EO 14035 
9EO 14036 
9EO 14037 {** Debug code - allow for testing of ASID REASSIGNMENT. 
9EO 14038 
SEO 140393 IF mmv$test_reassign_asid AND (#FREE_ RUNNING CLOCK (0) > time_next_free_astes) THEN 
SFE 14040 FOR asti := 1 TO UPPERBOUND (mmv$ast_p4) DO 
A16 14041 aste_p := Ammv$ast_p” [asti]; 
A16 14042 IF (aste_ pA.pages_in_memory = ©) AND aste_p’.in_use THEN 
A32 14043 mmp$asid (asti, asid); 
A4h 14044 mmp$change_asid (Ammv$ast_pA [asti], asid, 9, 9); 
A70 14045 mmp$free_asid (asid, Ammv$ast_pA [asti]); 
ASE 14046 IFEND; 
ASE 14047 IF aste pr.in_use THEN 
AS6 14048 IF aste_ pA.sfid.residence = gfc$tr_system THEN 
ASE 140498 gfp$mtr_get_locked_fde_p (aste_pA.sfid, NIL, fde_p); 
B24 14050 IF fde_ pA.asti <> asti THEN 
B30 14051 mtp$error_ stop (’MM - dangling AST entry found’); 
BSO 14052 IFEND ; 
B50 14053 IFEND; 
B50 14054 IFEND; 
B50 14055 FOREND ; 
B54 14056 time _next_free_astes := #FREE RUNNING CLOCK (0) + 1000000; 
BEC 14057 IFEND ; 
BEC 14058 
BEC 14059 
BEC 14060 {** DEBUG code - allow for testing PAGE TABLE full. 
B6C 14061 
B6C 14062 FOR pass := 1 TO mmv$test_pt_full DO 
B8A 14063 pti :: #FREE RUNNING CLOCK (0) MOD mmv$pt_length; 
B90 14064 pfti := (mmv$pt_p’ [ptil]l.rma * 512) DIV osv$page_size; 
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B30 
CiA 
C1A 
Cia 
Cia 
C24 
C28 
c28 
C28 
ccé 
DOZ2 


14065 
14066 
14067 
14068 
14069 
14070 
14071 
14072 
14073 
146074 
14075 
14076 
14077 
14078 
14079 
14080 
44081 
14082 
14083 
14084 
14085 
14086 
14087 
14088 
14089 
14090 
14091 
14092 
14093 


WHILE (mmv$pt_p4 [ptil].pageid.asid = 0) OR (pfti < LOWERBOUND (mmv$pft_p4}) OR 
(pfti > UPPERBOUND (mmv$pft_p‘4)) OR (mmv$pft_p4 [pfti].aste_p = NIL) OR 
(mmv$pft_ pA [pfti].aste_pr%.in_use = FALSE) DO 


pti := pti + 1; 
IF pti = mmv$pt_tlength THEN 
pti :: 0; 
IFEND; 
pfti := (mmv$pt_pA [pti].rma * 512) DIV osv$page_size; 
WHILEND; 


IF jmp$ijil_biock_valid (mmv$pft_pA [pfti].ijl_ordinal) THEN 
mmp$get_inhibit_io_ status (mmv$pft_pA [pfti] .ijl_ordinal, FALSE {lock ajl}, inhibit _io, ijle_p); 
ELSE 
imhibit io :: FALSE; 
IFEND; 
IF NOT inhibit io THEN 
mmp$process_ page_tabie_ full (mmv$pft_p4 [pfti].sva, nmew_asid, new_asti, new_aste_p, 
pt_full_status) ; 
IFENO; 
FOREND; 


{Reset the time that CP Monitor should next call this procedure. 
mmv$time_to_call_mem_mgr := mmv$periodic_call_interval + #FREE_ RUNNING CLOCK (0); 


#KEYPOINT (osk$exit, ©, mmk$per iodic_cail); 


PROCEND mmp$per iodic call; 
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© 14096 
ema 0 3 ier ZAMS a Raa aa aa a a a a ca a aR a ati le a 
© 14088 {Name 
© 14099 { replenish_free_ queues 
© 14100 {Purpose: 
© 14101 { This routine is called to determine if the number of FREE + AVAILABLE 
© 14102 { is getting too low. 
© 14103 { 
© 14104 { asid: (input) If only pages belonging to a specific ASID should be written then this parameter 
© 14105 { specifies the ASID. If ALL ASIDS Should be written then a 0 (zero) is passed. 
© 14106 { 
© 14107 { 
0 18108 [9 ese ees ees ee eset eee RRS RE REO SEE Re REE SSH EHS SRS h Ne Re RRR EE OS ee Re eR RT eR SH eee ee 
Oo 14109 
© 14110 
© 14111 PROCEDURE [XDCL] mmp$replenish_free_ queues 
© 14112 ( asid: ost$asid); 
© 14113 
Oo 14114 CONST 
oO 14115 max dm rejects = 32; 
© 14116 
oO 14117 VAR 
© 14118 fde_ p: gft$locked file _desc_entry _p, 
o 14119 write status: mmt$write page _to_disk_status, 
Oo 14120 pfti: mmt$page_frame_index, 
Oo 14121 next pfti: mmtS$page_frame_index, 
© 14122 ijle_p: Ajmt$initiated_job_list_entry, 
© 14123 io_id: mmt$io_identifier, 
© 14124 dm_reject_table: array [1 max _dm_rejects] of ost$asid, 
Oo 14125 i, 
© 14126 j: integer, 
© 14127 write ok: boolean, 
© 14128 inhibit to: boolean; 
© 14129 
© 14130 io: 0; 
4 14131 ico_id.specified :: FALSE; 
4 14132 
4 14133 {Move pages from the AVAIL_MODIFIED queue to the AVAIL queue until free pages exceeds the threshold. 
4 14134 
4 14135 pfti := mmv$gpqi [mmc$pq_avail_modified].pqie. link. Dkw; 
4 14136 
4 14137 WHILE (pfti <> ©) AND ((mmv$reassignable_ page _frames.now + mmv$reassignable_page_frames.soon) < 
36 14138 mmv$write aged out _pages) DO 
36 14139 IF mmv$pft_pA [pfti].aste_p%.in_use = FALSE THEN 
SE 14140 mtpS$error stop (‘MM - replenish found page in AM q with AST free’); 
TE 14141 IFEND; 
7E 14142 next _pfti := mmvS$pft_ pA [pfti] . link. bkw; 
7E 14143 IF (mmv$pt_p’ [mmv$pft_pA [pfti].pti].m) AND ({asid = ©) OR (mmv$pFft_pA [pfti].sva.asid = asid)) THEN 
C& 14144 mmp$get_inhibit_io_ status (mmv$pft_pA [pfti].ijl_ordinal, TRUE {lock aj1l}, inhibit_io, ijle_p); 
1FE 14145 IF NOT inhibit _io THEN 
206 14146 write ok := TRUE; 
206 14147 
206 14148 /asid_check/ 
206 14149 FOR j := 1 TO i DOA 
212 14150 IF mmv$pft_p’ [pfti].sva.asid = dm_reject_table [j] THEN 
234A 14151 write ok := FALSE; 
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REPLENISH FREE QUEUES 


234A 
2F2 
2F8 
2F8 
2FC 
300 
3AE 
3E4 
4B0 
488 
4BE 
4C2 
4cC2 
4cC2 
&F2 
4aF4 
4F6 
4FE 
4FE 
4FE 


14152 
14153 
14154 
14155 
14156 
14157 
14158 
141598 
14160 
14161 
14162 
14163 
14164 
14165 
14166 
14167 
14168 
14169 
14170 
14171 
4FE 14172 
4FE 14173 
518 14174 
518 14175 


jmp$untlock_ajl 


{ijle_p); 
XIT /asid_check/; 


IFEND; 


FOREN 
IF wr 


gfp$mtr_get locked fde_p 
mmp$write page _ to disk 
jmp$untlock_aji 
IF write status = 


R 
ELS 
i 


am_reject_table 
IF ji 


D /asid_check/; 

ite _ok THEN 

(mmv$pFft_paA 

(fde_p, pfti, 

(ijle_p); 

ws_physical_ io reject THEN 

ETURN; 

EIF write status <> ws ok THEN 
:2 7 + 1; 

[i] := mmv$pft_pA 

>= max _dm_rejects THEN 

RETURN; 


IFEND ; 
IFEND; 


IFEND 

IFEND; 
IFEND; 

pfti :s 
WHILEND; 


. 
a 


next pfti; 


PROCEND mmp$replenish_free_queues ; 


[pfti].aste_pA.sfid, 
ioc$write_page, 


ijle_p, fde_p); 
io_id, mmv$multi_page_ write, 


{[pfti].sva.asid; 


write status); 


PAGE 


PAGE 


44s 


446 
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FREE IMAGE PAGES 


© 14178 
© 14179 PROCEDURE [XDCL] mmp$free_image_pages_mtr ; 
o 141806 
Oo 14181 VAR 
Oo 14182 i: integer, 
© 14183 pte _p: Aost$page_table_entry, 
o 14184 pfti: mmtS$page_frame_index; 
Oo 14185 : 
oO 14186 FOR i := © TO (mmv$pt_length - 1) DO 
16 14187 pte_p := Ammv$pt_pA [il]; 
16 14188 IF (pte_p4A.v) AND ((pte_pA.rma * 512) >: osv$18O_memory_limits.deadstart_upper) AND 
4E 14189 ((pte_pA.rma * 512) < osv$18O_ memory _limits.upper) THEN 
4E 14190 pfti :: (pte_pA.rma * 512) DIV osv$page_size; 
4E 14191 mmp$delete pt_entry (pfti, TRUE); 
6E 14192 mmv$pft_pA [pfti].queue_id := mmc$pq_free; 
6E 14193 mmav$pft_ pA [pfti].sva.asid := 0; 
94 14194 IFENO; 
94 14195 FOREND ; 
98 14196 
98 14197 PROCEND mmp$free_ image _pages_mtr ; 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 891062 1989-08-21 13:33:34 
MMPSCREATE_ TASK 
© 14200 {eee rete tte ett tte eee SS Sey Se (Se a aR ae WR eee Sm LS ne Rl Sar Se Sl SR ee Nee Le? Sic ne, ee eee ee kelie eve eee 
© 14201 {This procedure is called by the Dispatcher when a new task is created to initialize the SDT of the 
© 14202 {new task. Initialization consists if copying the ASID’sS of shared segments from the SDT of the parent 
© 14203 {task into the SDT of the new task. Update the real memory address of the task’s SOT in the task’s 
© 14204 {exchange package. 
© 14205 { 
© 14206 { MMPS$CREATE_TASK (PARENT_XCB_P, XCB_P) 
© 14207 { 
© 14208 [eee rm eer ee eee ee te er ee er em terme ew mee we mente enw ee nme nae 
0 14209 
Oo 14210 
Oo 14211 PROCEDURE [XDCL] mmp$create_task 
© 14212 ( parent_xcb_ p: Aost$execut ion_control block; 
Oo 14213 xcb p: Aost$execution_control_ block; 
© 14214 ijle_p: Ajmt$initiated_job_list_entry) ; 
0 14215 , 
Oo 14216 VAR 
Oo 14217 fde_p: gft$file_desc_entry_p, 
o 14218 max _segnum: ost$segment, 
oO 14219 parent_sdt_p: mmt$max_sdt_p, 
© 14220 parent _sdtx_p: mmt$max_sdtx_p, 
© 14221 sdte: mmt$segment_descriptor, 
© 14222 sdt_p: mmt$max_sdt_p, 
Oo 14223 st rma: integer, 
oO 14224 sdtx_p: mmt$max_sdtx_p, 
© 14225 segnum: ost$segment, 
© 14226 taskid: ost$global_task_id; 
© 14227 
© 14228 #KEYPOINT (osk$debug, ©, mmk$create_ task) ; 
8 14229 
8 14230 mmp$get_max_sdt_sdtx_pointer [(parent_xcb_p, parent_sdt_p, parent_sdtx_p); 
8 14231 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
8 14232 
8 14233 { Update the RMA of the task’s segment table in the task’s exchange package. 
8 14234 
8 14235 i#real_memory_address (sdt_p, st rma); 
8E 14236 xcb_pA.xp.segment_table_address_1 := st rma DIV 10000(16); 
8E 14237 xcb_pA.xp.segment _table_address_ 2 := st _rma MOD 10000(16); 
8E 14238 
8E 14239 IF parent_xcb_p4.xp.segment table length > xcb_pA.xp.segment_table length THEN 
CC 142406 max _ segnum := xcb_ pA.xp.segment_table_ length; 
DO 14241 ELSE 
BO 14242 max segnum := parent _xcbh_ pA.xp.segment table length; 
D2 14243 IFEND; 
D2 14244 
D2 14245 { For performance, try to propagate the ASID/ASTI from the segment table entry of the parent (copy the 
D2 14246 { entire st entry) if the parent and child are both using corresponding segments for the same file 
D2 14247 { (compare sfids). If the segments are not being used for the same file, the ASID/ASTI in the child’s 
D2 14248 { segment table entry will remain zero. When the child task first page faults for a page of the segment, 
D2 14249 { an ASID will be assigned. 
D2 14250 
D2 14251 taskid :=5 xcb_.p4.global_task_id; 
D2 14252 FOR segnum := 0 TO max_segnum DO 
BoC 14253 IF sdt_pA.st [segnum].ste.vl <> osc$vi_invalid_entry THEN 
FO 14254 IF (parent _sdt_pA.st [segnum].ste.v1 <> osc$vi_invalid_entry) AND 
11E 14255 (sdtx_pA.sdtx_table [segnum].sfid = parent_sdtx_p4.sdtx_ table [segnum].sfid) THEN 
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SOURCE LIST OF mmm$monitor_request_ processor NOS/VE CYBIL/II 1.0 881062 1989-08-21 
MMPSCREATE_ TASK 

11E 14256 sdt_p4.st [segnum] := parent_sdt_p4.st [segnum]; 

124 14257 ELSEIF sdtx_pA.sdtx_table [segnum].inheritance = mmc$si_new_segment THEN 

142 14258 gfp$mtr_get _fde_p (sdtx_pA.sdtx_table [segnum].sfid, ijle_p, fde_p); {No need to tock} 

1A6 14259 fde_pA.global_task_id := taskid; 

iAE 14260 IFEND ; 

1AE 14261 IFEND; 

1AE 14262 FOREND; 

1B2 14263 

1B2 14264 PROCEND mmp$create task; 

© 14265 
SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 
AMPSEXIT_TASK 
16268 [{-------- cere eee wt ee ee ee eee ee eee eee te re eee 


eowmwmoqdg0ddcodoocodo 0 o0dcdandc00cdqndgcdggnggngng fo 


14268 {This procedure 
14270 {to task template segments. 
14271 { 


is called by the dispatcher when a task exits to 


ijle_p, 


mmc$si_new_segment THEN 


fde_p); 


page count); 


14272 { MMPSEXIT_TASK (PARENT_XCB_P, XCB_P) 

14273 { 

a a a a a a Re a a a la A a aa a la Ml eae 
14275 

14276 

14277 PROCEDURE [XDCL] mmp$exit_task 

14278 ( xcb_p: AostS$execution_control pnioeck) ; 

14279 

14280 VAR 

14281 fde_p: gft$locked file _desc_entry_p, 

14282 sdt_p: mmt$max_sdt_p, 

14283 cst_p: Aost$cpu_state_table, 

14284 sdtx_p: mmt$max_sdtx_p, 

14285 page count: integer, 

14286 aste_p: Ammt$active_segment_tabie_entry, 

14287 S$va: ost$system_virtual_address, 

14288 segnum: ost$segment; 

14289 

142390 

14291 #KEYPOINT (osk$debug, ©, mmk$exit_task) ; 

14282 

14293 mmp$get_max_sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 
14294 mtp$cst_p (cst_p); 

14295 

14296 sva.offset :: QO; 

14297 FOR segnum := 0 TO xcb_pA.xp.segment_table_ length DO 
14298 IF sdt_pA.st [segnum].ste.vil <> osc$vl_invalid_entry THEN 
14299 IF sdtx_ p%.sdtx_ table [segnum] .inheritance = 

14300 Sva.asid := sdt_pA.st [segnum] .ste.asid; 

14301 IF sva.asid <> © THEN 

14302 sdt_p%.st [segnum].ste.asid := 0; 

14303 aste_p := AmmvS$ast_pA [sdt_p’.st [segnum] .asti]; 
14304 IF NOT aste_ pA.in_use THEN 

14305 mtp$error_stop (‘MM - ast not in use’); 

14306 IFEND; 

14307 gfp$mtr_get locked fde_p (aste_pA.sfid, cst_pA. 
14308 fde_ pr.asti :=5 0; 

14309 mmp$mm_free_ pages (sva, 7FFFFFFF(1E), aste_p, TRUE, 
14310 IFEND ; 

14311 IFEND; 

14312 IFEND; 

14313 FOREND ; 

14314 

14315 PROCEND mmp$exit task; 

14316 
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| ee a er woocoe 


{This procedure is called by the Dispatcher when a new job is created to initialize the SDT of the 
{new job. 


are ree 


MMPS$CREATE_ JOB (PARENT_XCB, XCB_P) 


PROCEDURE [XDCL] mmp$create_job 
( new_job_ajl_ordinal: jmt$ajl_ordinal; 
xcb_segnum_relative_jobs_as: ost$segment ; 
parent_xcb_p: Aost$execution_control_ block; 
xcb_p: Aost$execution_control block) ; 


VAR 
aste_p: Ammt$active segment_table_entry, 
cst_p: Aost$cpu_state_table, 
fde_p: gft$file_desc_entry_p, 
ijle_p: Ajmt$initiated job_list_entry, 
jcb_p: Ajmt$job_control_biock, 
if_fde_p: gft$locked_file_desc_entry_p, 
new_job_ijl_ordinal: jmt$ijl_ordinal, 
parent _fde_p: gft$ilocked file _desc_entry_p, 
parent _sdt_p: mmt$max_sdt_p, 
parent sdtx_ p: mmt$max_sdtx_p, 
pfti: mmt$page_ frame_index, 
sdt_p: mmt$max_sdt_p, 
sdtx_p: mmt$max_sdtx_p, 
segnum: ost$segment, 
Sva: ost$system_virtual_ address, 
taskid: ost$gilobal_task_id; 


#KEYPOINT (osk$debug, ©, mmk$create_ job) ; 


mtp$cst_p (est_p); 
mmp$get_max_sdt_sdtx_pointer (parent_xcb_p, parent_sdt_p, parent _sdtx p); 
mmp$get_max_ sdt_sdtx_pointer (xcb_p, sdt_p, sdtx_p); 


Copy the segment table entry of the segment used for the new job fixed in the parent to the new job’s 
‘job fixed segment table entry. Fix the ring and cache bypass values; they are not correct in the 
parent’s ste. 

Invalidate the segment used by the parent. 


sdt_p4.st [losc$segnum_job_fixed heap] :: parent _sdt_p’.st [xcb_segnum_relative_jobs_as]; 

sdt_p4.st [Losc$segnum_job_fixed_heap].ste.vl := osc$vil_cache_bypass; 

sdt_p4.st [osc$segnum_job_fixed_ heap].ste.r2 := 3; 

parent _sdt_pA.st [xcb_segnum_relative_jobs_as].ste.v1 : = osc$vil_invalid_entry; 

parent _sdt_p%.st [xcb_segnum_relative_jobs_as].ste.asid :+ 0; 

gfp$mtr_get_locked_fde_p (parent_sdtx_p4.sdtx_table [xcb_segnum_relative_jobs_as].sfid, 
cst _p%.ijle_p, parent_fde_p); 

parent fde_ pr.asti := O; 

Sva.asid := sdt_p4.st [osc$segnum_job_fixed heap] .ste.asid; 

sva.offset := 0; 
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#PURGE BUFFER (osc$purge_all_page_ seg map, sva); 
new _job_ijl_ordinal := jmv$aji_p* [new_job_ajl_ordinal].ijl_ordinal; 
jmp$get_ijle_p (new_job_ijl_ordinal, ijle_p); 


Copy template segments from the parent (system job task) to the new job’s job monitor task. 


taskid := xcb pA.global_task_id; 
FOR segnum := © TO mmv$max_template_ segment number DO 
IF (sdt_pA.st [segnum].ste.vil ¢> osc$vl_invalid_entry) THEN 


The second clause of the following IF statement is to prevent the copying of 
"shared" segments when executing within a multiple job template. 


IF (sdtx_pA.sdtx_table [segnum].open_validating ring number = ©) AND 
(sdtx_ pA.sdtx_table [segnum].sfid = parent _sdtx_p4.sdtx_table [segnum].sfid) THEN 

sdt_pA.st [segnum] := parent sdt_pA.st [segnum] ; 

ELSE 
ofp$mtr_get_fde_p (sdtx_pA.sdtx_table [segnum].sfid, ijle_p, fde_p); {No need to lock} 
fde_ pA.global_task_id := taskid; 

IFEND; 

IFEND; 
FOREND; 


Move the job fixed segment of the new job to the job queue of that job. 


aste_p := Ammv$ast_pA [sdt_pA.st [osc$segnum_job_fixed heap] .asti]; 
aste_ pA.sfid := sdtx_pA.sdtx table [Losc$segnum_job_fixed heap] .sfid; 
aste_pA.queue_id := mmc$pq_job_fixed; 

aste pA.ijl_ordinal := new _job_ijl_ordinal; 

gfp$mtr_get_locked_fde_p (aste_pA.sfid, ijle_p, jf_fde_p); 
jif_fde_pA.last_ segment number :: osc$segnum_job_fixed_heap; 

if _fde_pA.global_task_id := xcb_pA.global_task_id; 

if_fde_pA.asti := sdt_pA.st [osc$segnum_job_fixed_ heap] .asti; 

jcb_p := #ADDRESS (1, mtc$job_fixed_ segment + ijle_pA.ajl_ordinal, 0); 
jcb_p4.mext_cyclic_aging_ time := #FREE RUNNING CLOCK (0) + jcb pA.cyclic_aging interval; 
ijle_ p%.job_fixed_ asid := sva.asid; 


mmp$initialize_ find _next_pfti (sva, 7FFFFFFO(1E6), include _partial_pages, psc_all, aste_p, pfti); 


/relink_job_fixed_in_new_queue/ 
WHILE pfti <> © DO 
mmp$Srelink_ page _ frame (pfti, mmc$pq_wired) ; 
mmv$pft_pA [pfti].ijl_ordinal := new_job_ijl_ordinal; 
mmp$relink page _ frame (pfti, mmc$pq_job_fixed) ; 
mmp$find_next_pfti (pfti); 
WHILEND /relink_job_fixed_in_new_queue/ ; 


PROCEND mmp$create_ job; 
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SOURCE LIST OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 453 
MMPSEXIT_JOB 
© 14425 {-------- a aN AN tN NE hg el al ad i SR Se Sie ie ee ee By SS Se Se as etsre es 
© 14426 {This procedure is called by the dispatcher when a job exits to free pages and ASIDsS assigned 
© 14427 {to non-inherited segments. 
Oo 14428 { 
o 14429 { MMPSEXIT_ JOB (XCB_P) 
© 14430 { 
© 14431 { XCB_P: (input) This parameter is a pointer to the execution control biock 
© 14432 { of the job exiting. 
© 14433 { 
© 19434 [orem mre re ee ene 
© 14435 
© 14436 
© 14437 PROCEDURE [XDCL] mmp$exit_ job 
© 14438 ( xcb_ p: Aest$execut ion _control_block) ; 
© 14439 
© 14440 VAR 
Oo 14441 cst_p: Aost$cpu_state table; 
© 14442 
0 14443 
© 14444 mtp$cst_p (cst_p); 
14 14445 #KEYPOINT (osk$debug, cst_p4%.ajlo * osk$m, mmk$exit_ job) ; 
34 14446 mmp$free_ memory _in_job_queues (cst_pA.ijle_pA. job_page queue list, TRUE, FALSE, TRUE); 
SE 14447 
SE 14448 PROCEND mmp$exit_ job; 
Oo 14449 
SOURCE LIST OF mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 454 
MMPSMTR_LOCK_ RING 1_ STACK 
© 14452 
© 14453 { PURPOSE: 
o 14454 { This procedure is the monitor part of the process necessary to free a job’s ring one stack at termination. 
© 14455 { DESIGN: 
o 14456 { This procedure changes the ring one stack to a transient file, and returns the disk file descriptor offset 
© 14457 { (if there is one) to job mode. Joh mode will then free the disk space associated with the ring one stack. 
Oo 14458 
© 14458 
© 14460 PROCEDURE [XDCL] mmp$mtr_lock_ring_1_stack 
Oo 14461 (VAR request block: mmt$rb_lock_ring_1_stack; 
© 14462 cst_p: Aost$cpu_state_table); 
© 14463 
Oo 14464 VAR 
© 14465 aste_p: Ammt$active _segment_table_entry, 
© 14466 count: 1..32, 
© 14467 fde_p: gft$locked file_desc_entry p, 
© 14468 found: boolean, 
© 144693 ipti: integer, 
© 14470 pointer {CYBIL trick} : ptr_type, 
©o 14471 ste _p: Ammt$segment_descriptor, 
0 14472 stxe_p: Ammt$segment_descriptor_extended, 
© 14473 sva: ost$system_virtual_address; 
© 14474 
0 14475 request block.status.normal := TRUE; 
4 14476 #KEYPOINT (osk$debug, cSt_p4.ajlo * osk$m, mmk$mtr_lock_ring_1_ stack) ; 
1E 14477 
1E 14478 { Verify that the ring 1 stack page (an assumption is made that the stack is om one page) is valid in memory. 
1E 14479 { The only way it is not in memory is that it was freed just after the monitor request was issued from ring 1. 
1E 14480 { That is unlikely to happen, so if it has simply reissue the request. This will cause the job to return to 
1E 14481 { ring 1, reference and get back its ring 1 stack page, and call monitor again. 
1E 14482 { The ring 1 stack must be valid in memory when the file is changed to transient. If the stack has been 
1E 14483 { written to disk and freed, the job will not be able to page fault and get the page back from disk when it 
1E 14484 { returns. Instead a new (zeroed out) page would be assigned, which the job cannot return to. 
1E 14485 
1E 14486 pointer.pva := cst_pA.xcb_p4A.xp.tos registers [1].pva; 
1E 14487 
1E 14488 mmp$convert_ pva (pointer.p, cst_p, sva, fde_p, aste_p, ste_p, stxe_p); 
6C 14489 #hash_sva (sva, ipti, count, found); 
72 14490 IF NOT found OR NOT mmv$pt_pA [ipti].v THEN 
AO 14491 request block.status.nmormal := FALSE; 
AO 14492 RETURN; 
A&B 14493 IFEND; 
AS 14494 
A& 144895 IF fde_pA.media = gfc$fm_mass_ storage _ file THEN 
B4 14496 request _ block.disk file descriptor offset :: fde_pA.disk_file descriptor p; 
B4 14497 dmp$deallocate_file space (fde_p, 0, amc$file_ byte_limit); 
D& 14498 fde_pA.media := gfc$fm_transient segment ; 
E2 14499 ELSE 
E2 14500 request _ biock.disk_file_ descriptor offset := 0; 
EG 14501 IFEND ; 
EG 14502 
E6 14503 PROCEND mmpSmtr_lock_ ring _1_stack; 
© 14504 
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MMPSDETERMINE_ERROR_STATE 


Oo 14507 PROCEDURE [XDCL] mmp$determine_error_state [ 
o 14508 list _p: Ammt$rma_list; 
© 145098 Tist_length: mmt$rma_list_length; 
0 14510 VAR io error: boolean) ; 
o© 14511 
© 14512 VAR 
© 14513 pfte_p: Ammt$page_frame_table_ entry, 
Oo 14514 pfti: mmt$page_frame_index, 
© 14515 Tist_i: mmt$rma_list_index; 
Oo 14516 
© 14517 io error :: FALSE; 
4 14518 
4 14519 /check_pages/ 
4 14520 FOR list_i := 1 TO list_length pO 
1¢ 14521 IF list_pA [list_i]. length = © THEN 
30 14522 EXIT /check_pages/; 
32 14523 _ IFEND; 
32 14524 pfti := lTist_pA [list_i].rma DIV osv$page size; 
32 14525 pfte_ p := Ammv$pft_pA [pftil]; 
32 14526 IF (pfte_p%.io_error = ioc$media_error) OR 
74 14527 (pfte_ p%.io_error = ioc$unrecovered error) OR 
74 14528 (pfte pr. io_error = ioc$error_on_init) THEN 
74 #14529 io error := TRUE; 
74 14530 RETURN; 
7A 14831 IFEND; 
7A 14532 FOREND /check_pages/; 
7E 14533 
7E 14534 PROCEND mmp$determine_error state; 
© 14535 


© 14537 MODEND mmm$monitor_request_processor ; 


¥*x** 12$05578173AS0102D19890821T183254 L=ZZXXLIST B=LGO DA=NONE LO=R RC=NONE OPT=SCHED ELF LF2=CS612 PAD=0 


ERROR LIST OF mmm$monitor request processor NOS/VE CYBIL/II 1.060 89102 1989-08-21 13:33:34 PAGE 456 
ERROR LINE TEXT 

WARNING CY 821 12012 Code scheduling abandoned for this block due to register jamming. 

WARNING CY 821 12285 Code scheduling abandoned for this block due to register jamming. 

WARNING CY 821 12294 Code scheduling abandoned for this biock due to register jamming. 

WARNING CY 821 12300 Code scheduling abandoned for this block due to register jamming. 


LEVEL SUMMARY 
RK K 4 warning diagnestics 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 457 
TIDENTIFIER--------- ESS Pe a at ae DEFINED <4 2.2 SSeS See eee REFERENCES 
ON LINE 

active 9179 13508/M 

active _jio_count 4510 11428 11502 11574 TIST7/M 11577 11580 11664 11936/M 
11936 11961/M 11961 12271/M 12271 12449 12450 12452 
12454 12469 12470 12472 12474 12524 12525 12527 
12529 12750 12794 12848 12862 12910 13166 13166 
13191 13328 

‘active 10 page count 3911 11737 11742/M 11742 11743 12010/M 12010 12036/M 12036 
12060/M 12060 12255/M 12255 12300/M 12300 124S50/M 12450 
12453/M 12453 12470/M 12470 12473/M 12473 12525/M 12525 
12528/M 12528 

active _io_requests 3912 11744/M 11745 11746/M 11746 12011/M 12011 12037/M 12037 
12061/M 12061 12256/M 12256 12325/M 12325 

address 1386 12308/M 12311/M 12316/M 

address_pair_count 1100 12339/M 

age 4514 12929/M 

age _cp_bound_job 10610 13973/M 13973 

age_interval 4567 13911/P 13914/P 13925/P 

age_sys_shared_ queue 10619 13920/M 13921 

age _ unused page_in_shared_queue 10618 13917/M 13918 

aggressive age _job_queues 10608 13832/M 13932 

‘aggressive _age shared queue 10607 13902/M 139302 

aggressive_aging 13757 13898/M 13901 13905 13910 139293/M 13931 13934 13970 

aggressive_aging failed 10609 14033/M 14033 

ajl_ordinal 3905 9338 $375 9502 9636 $818 $840 11488 11490 
11494 11814 13139 13308 13322 13348 13421 13439 
13450 13460 13470 13490 13552 13598 13605 13715 
13976 14003 14049 14075 14144 14152 14157 14159 

: 14258 14307 14371 14392 14404 14408 

ajl_ordinal 9498 9502/M $503 9507/S 9507/S 9508 

ajl_ordinal 9805 $819/M 9819 9819/S 9819/S 9819 

ajl_ordinal 93837 9840/M 9841 9845/Ss 9845/5 9846 

‘ajl_ ordinal 11460 11488/M 11488 11488/S 11488/S 11488 

ajl_ordinal 13272 13322/M 13322 13322/S 13322/S 13322 

ajl_ordinal 13737 14003/M 14003 14003/S 14003/S 14003 14075/M 14075 14075/S 
14078/S 14075 

aji_ordinal 14111 141448/M 14144 14144/S 14144/S 14144 

ajilo 3813 14445 14476 

ajilo 9495 9$505/P 9508/M 

ajlo 9633 $636/M $637/S 9640/S 9640/S 

ajlo $805 9819/P $8139/M 

ajlo $812 9819/P 

ajilo $834 9843/P 9846/M 

ajlo 11460 11488/P 11488/M 

ajlo 11460 11494/M 11494/S 11494/S 11494/5 

ajlio 11467 11488/P 

“ajlo 11765 11814/M 11814/S 11814/S 11814/S 

ajlo 13272 13322/P 

ajio 13272 13322/P 13322/M 

7jajlo 13272 13348/M 13349/S 13349/S 13349/5 

ajlo 13737 13976/M 13976/S 13976/S 13976/S 

ajlo 13737 14003/P 14075/P 

ajlo 13737 14003/P 14003/M 14075/P 14075/M 

“ajilo 13744 13937 139838/S 139398/S 13941/S 13941/S 13943/S 13953 13861/S 


xe REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, =I/O0 ref, Reread, Wewrite, P=parameter 


1989-08-21 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.060 8810602 13:33:34 PAGE 458 
IVENTIF IER © 62s ors es se Seasie = ~~DEFINED~----- eect eeteece REFERENCES 
ON LINE 

% 13964/P 13967/P 
ajlo 14111 14144/P 

ajlo 14111 . 14144/P 14144/M 
aajlo 14111 14152/M 14152/s 14152/Ss 14152/Ss 14159/M 14159/S 14159/S 14159/5S 
-allocated_address_pair_count 1101 12238 12334 
allocation_unit_size 413 11491 11491 11492 
amc$access_mode 3089 2614 
-ame$average record length 3091 2689 

amc$block type 3032 2616 
amc$character_ conversion 3033 2618 

amc$c lear space 3094 2620 
amc$collate_table_ name 3096 2691 
amc$compression_ procedure name 3149 2693 
amc$data_padding 3097 2696 
lamc$dynamic_home_block_space 3150 2698 
amc$embedded_ key 3098 2700 

amc$error exit name 3098 2622 
,amc$error_ limit 3101 2702 

amce$error_ options 3102 2624 

amcS$est imated_ record count 3103 2704 

amc$file access procedure 3104 2626 
-ame$file_byte_limit 447 450 452 2895 2933 2969 3203 3265 14487/P 
amc$file_contents 3105 2628 

amc$file limit 3107 2630 

amc$file organization 3108 2632 

amc$file processor 3109 2634 

amc$file structure 3110 2636 

amc$forced write 3111 2638 
-amc$hashing_ procedure name 3151 2706 

amc$index_ levels 3117 2708 

amc$ index padding 3118 2710 
_ame$initial home_block_count 3152 2712 
iame$internal_code 31193 2640 

amc$key_ length 3120 2714 

amc$key_ position 3121 2716 

ame$key_ type 3122 2718 

amc$ label_exit name 3123 2642 

amc$ label options 3125 2644 
amc$tlabel_type 3126 2646 

amc$ 1ine_number 3127 2648 

amc$ loading factor 3153 2720 

amc$ lock expiration _time 3154 2722 

-amc$ log _ residence 3156 2726 

amc$ logging options 3155 2724 
amc$max_attribute 3197 3201 
-amc$max_block_length 3128 2650 
ame$max_block_number 2758 2761 
amc$max_error_ count 3081 3084 
amc$max_file_id_ordinal 3066 3073 

same$max_ home_blocks 2933 2936 
amc$max_index level 2928 2931 
amc$max_key length 3222 3226 
amc$max_key_ position 3231 3228 


eet REFERENCE ABBREVIATIONS Memodify, Azattribute, Stsubscript, 11/0 ref, Reread, Wewrite, P2parameter 


REFERENCES OF 


IDENTIFIER- ee eee ee eee ee ee eee 


amc$max_1ine_number 
amc$max_lines_per_inch 
amc$max_page_width 
amc$max_path_name_size 
amc$max_ record length 
amc$max_records per_block 
amc$max_statement_id_length 
amc$max_user_info 
amc$maximum_block 
amc$maximum_keyed_ record 
amc$maximum_record 
amc$message_ contro! 
amc$min_block_length 
amc$min_record length 
amc$nuli_attribute 
amc$open_position 
amc$padding_ character 
amc$page_format 
amc$page_length 
amc$page_width 
amc$preset_value 
amc$record limit 
amc$record type 
amce$records per_block 
amc$return_option 
amc$ring attributes 
amc$statement_identifier 
amc$user_info 
amc$vertical_ print_density 
amt$access selection 
amt$average_ record length 
amt$block header _ type 

amt $block_number 
amt$block status 
amt$block_type 
amt$collation_value 
amt$compression_procedure_name 
amt$data_padding 

amt $dynamic_home_block_ space 
amt$entry_point_reference 
amt$error limit 
amt$estimated record count 
amt$file_ attribute keys 
amt$file_byte_ address 
amt$file contents 
amt$file_id ordinal 
amt$file_id_ sequence 
amt$file_ identifier 
amt$fite_ item 

amt$file_ limit 

amt$fitle organization 
amt$file_ position 
amt$file processor 


KX 


REFERENCES OF mmm$monitor req 


LDENTIF IER “<9 330 2 ess sce eo 3 eas 
amt$file_ structure 
amt$forced write 
amtS$hashing procedure name 
amt$index levels 
amt$index padding 
amtSinitial_home_block_count 
amtSinternal_code 
amtSkey_ length 

amt$key position 

amt$key type 
amt$label_options 
amt$label_type 
amt$ line number 

amt$ line number_ length 
amt$line_number_location 
amt$ loading factor 

amt$ lock _expiration_t ime 
amt$log residence 

amt$ logging options 

amt$ logging possibilities 
amt $max_block_ length 
amt$max_record_ length 

amt $message _ contro] 
amt$min_biock_ length 
amt$min_ record length 

amt $open_position 
amt$padding_ character 

amt $page_format 
amt$page_length 

amt$page width 

amt $path name 

amt $preset value 
amt$record limit 
amt$record type 
amt$records_ per_block 
amt$return_option 
amt$ring attributes 
amt$statement_id_tength 
amt$statement_id_location 
amt$statement_identifier 
amt$tape_error_ action 
amt$tape_error_ options 
amt$unused_bit_count 
amt$user_info 
amt$vertical_print_density 
asid 


asid 
asid 
asid 
asid 
asid 


eX 


mmm$monitor_request_processor 


NOS/VE CYBIL/II 1.0 89102 
DEFINED-------cces+e--- REFERENCES 
ON LINE 
23946 2949 
3289 3286 
2898 2901 
2912 2915 
3123 2682 
3273 3277 
2996 2399 
3284 3280 
2226 2219 2763 3256 
3234 3231 
2969 2972 3047 3260 
3130 2728 
3131 2654 
3132 2656 
3133 2658 
3134 2660 
3135 2662 
3136 2664 
3137 2666 
3138 2668 
3140 2670 
3141 2730 
3142 2672 
3143 2732 
3144 2674 
3145 2676 
3146 2678 
3147 2680 
3148 2682 
2603 2601 
3047 2690 
2739 2742 2748 
2761 2744 2751 
2740 2783 
3050 2617 
3055 3052 
23803 2695 
3058 2697 
2922 2699 
2906 2903 2824 
3077 2703 
3086 2705 
3201 2608 
450 411 7718 8462 
2781 2623 
3073 3070 
3074 3071 
3069 3061 3240 10849 
2607 2603 2606 
452 415 2631 13700 
3207 2633 
3210 2594 
2842 2635 
REFERENCE ABBREVIATIONS Memodify, Azattribute, 


uest_processor NOS/VE CYBIL/II 1.0 89102 
DEFINED---- ere rere cee REFERENCES 
ON LINE 
2888 2637 
3213 2639 
2324 2707 
2331 2709 
3217 2711 
2336 2713 
3219 2641 
3226 2715 
3228 2717 
3237 2719 
2596 2645 
3244 2647 
2940 2649 
2949 2941 
2351 2942 
2954 2721 
2956 2723 
29358 2727 
2961 2725 
2964 2961 
2763 2556 2651 
2372 2653 
3254 2729 
3256 2555 2655 
3260 2657 
28376 2661 
3263 2663 
28931 2665 
2835 2667 
2901 2669 2951 
2915 2908 2958 
28380 2671 6081 
3265 2731 
3269 2673 
3277 2733 
25397 2675 
29383 2677 
2339 2991 
3001 2932 
2390 2679 
3011 3006 
39004 2625 
2768 2745 2752 
3280 2681 
3286 2683 
1010 11195/P 12113 
134S6/M 13494/M 
14301 14373/M 
33898 14065 14065 
4978 12429/M 14300 
12373 12428/P 12829 
13113 13146/P 13147 
13278 13314/P 13315 
REFERENCE ABBREVIATIONS Mzmodify, Azatt 


2743 


3001 


12675/P 
13562 
14410 


14302/M 


13361/P 


ribute, 


1989-0 
9314 
Szsubscript, I:I/0 ref, 
1889-90 
2748 2750 
13147/M 13315/M 13415 
14143 14150 148164 
14369/M 14373 
13362/P 


Szsubscript, 


IsI/o ref, 


8-21 13:33:34 


R=read, Wewrite, 


8-21 13:33:34 


/M 13433/M 


14133/M 


Rzread, Wewrite, 


PAGE 459 


Psparameter 


PAGE 460 


13443/M 
14300/M 


Psparameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 461 
EDENT IP LE RS <6 ses cies eee ee ae sigs DEFINED-------- i REFERENCES 
ON LINE 

asid 13383 13432/P 13433 13442/P 13443 13455/P 13456 13463/P 13464/P 
13483/P 13494 13562/M 13573/P 

asid 13775 14083/P 14044/P 14045 /P 

asid 14112 14143 14143 

asid_can_be_ deleted 13384 13620/M 13622 13641/M 13645 

asid_check 14148 14148 14153 14155 

assign_active 5005 11795/M 

ast_entry 4481 12107/M 

ast search 13533 13533 13541 13545 

aste_p 4515 11196 11382 11383 11488/P 11490/P 11497 11956/P 11965/P 
11987/P 12012 12038 12107 12468/P 12521 12522 12523/P 
12924/P 13220/M 13233/M 13321 13321 13559 13560 13563 
14065 14065 14066 14067 14139 14157/P 

aASte_p 11192 11195/P 11196 

aste_ op 12374 12388/M 12393 12334 12424/M 12430/M 12432/M 12435/M 12443 

aste_p 12545 12551/P 

aste_ op 125793 12594 12594 12598/P 

aste_p 12631 12643/P 12661 12662/P 12675/P 

aste_p 12701 12722/P 12768 

aste_p 12896 12906/P 

‘aste_p 12969 12993/P 12996 128396 12937 13002/P 13007/P 13009/P 

aste_p 13279 13317/M 13318/P 13359 13360 13361/P 13362/P 

aste_p 13385 13424/M 13425 13444/M 13457/M 13475/M 13476 13495/M 13522/M 
13528/M 13535 13540/M 13547 13551/M 13563/M 13572 13573/P 
13634/P 13647/P 

aste_p 13742 14041/M 14042 14042 14047 14048 14049/P 

aste_p 14286 14303/M 14304 14307/P 14309/P 

‘“aste_p 14336 14400/M 14401/M 14402/M 14403/M 14404/P 14412/P 

aste_p 14465 14488/P 

asti 410 10123 10127/M 12389/S 12427 12428/P 13140 13140/M 13309 
13309/M 13422 13422/M 134480 13440/M 13451 13451/M 13461 
13461/M 13471 13471/M 13491 13491/M 13553/M 13589 13606 
13606/M 13646/M 14050 14308/M 14372/M 14407/M 

asti 4947 12427/M 14303/S 14400/S 14407 

asti 7706 13523 13523 13824/S 13525/S 13527/S 13528/S 13539/M 13553 

asti 10120 10123/M 10124/S 10124/S 10125/S 10126/M 

asti 13065 13140/M 13140/S 13140/S 13140/S 13140/M 

masti 13115 13140/P 13141 13146/P 13157/S 

asti 13272 133083/M 13309/S 13309/S 13309/S 13303/M 

asti 13280 13308/P 13310 13314/P 13317/Ss 

asti 13377 13422/M 13422/S 13422/S 13422/S 13422/M 134480/M 13440/S 13440/S 

- 13440/S 13440/M 13451/M 13451/S 13451/S 13451/S 13451/M 13461/M 
13461/S 13461/S 13461/S 13461/M 13471/M 13471/S 13471/S 13471/S 
13471/M 13491/M 13491/S 13491/S 13481/S 13491/M 13606/M 13606/S 
13606/S 13606/S 13606/M 

asti 13386 13422/P 13423 13424/S 13432/P 134480/P 13441 13442/P 13444/S 
13451/P 13452 13452/S 13455/P 13457/S 13461/P 13462 13463/P 
13471/P 13472 13475/s 134981/P 13492 13493/P 13495/S 13537 
13538/S 13538/S 135398 13540/S 13606/P 13607 13608/S 13609/5S 

asti 13776 14640 14041/S 14043/P 14044/S 14045/S 14050 

attach_count 405 13310 

avai lable_memory 99300 $903/M 9906 g9g09/P 

available_memory 13737 13897/M 13897 13897/P 

* e+ REFERENCE ABBREVIATIONS Memodify, Atattribute, S=tsubscript, I:t1I1/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 462 
TDENTIFIER--+----+---- Se ee Se eS -DEFINED------- SIS ARe Se SS REFERENCES 
ON LINE 

b 9368 $377 $377 

b 9412 9422 9423 

b 9492 3501 $3501 

b 93575 9582 9583 

b $6238 9635 8635 

b 9805 9818 9818 

b 11460 11488 11488 11494 11494 

b 11765 11814 11814 

b 13065 131398 13139 

b 13272 13308 13308 

b 13272 13322 13322 13349 133495 

+9] 13377 13421 13421 13433 13439 13450 13450 13470 13470 
134906 13490 13552 13552 13598 13598 13605 13605 

‘bb 13688 13715 13715 

b 13737 13938 13938 13976 13976 14003 14003 14075 14075 

a] 13737 14049 14049 

i ¢) 14111 14144 14144 14152 14152 14159 14159 

b 14111 14157 14157 

b 14277 14307 14307 

‘b 14329 14371 14371 14404 14404 

‘ac 9482 9501/M 9501 9501 

be 9576 95793/M $3580 9584 

be $6293 $635/M $635 $635 

‘pe $8o5 9818/M 9818 $818 

ine 11460 11488/M 11488 11488 11494/M 11494 11494 

toc 11765 11814/M 11814 11814 

be 13272 13322/M 13322 13322 133439/M 13349 13349 

be 13737 13838/M 13338 13938 13976/M 13976 13976 14003/M 14003 
14003 14075/M 14075 14075 

be 14111 14144/M 14144 14144 14152/M 14152 14182 14159/M 14159 

“ 14159 

bkw 3465 11289/M 11291/M 11584/M 11584/M 12065 12082 12125 12517 
12520 12664 12668 13505/M 13505/M 14135 1414142 

block index 943 9475/S 9814/S 11309/S8S 11389/S 11443/S 11558/S 11707/S 12009/S 
12035/S 12057/S 12253/S8S 12298/S5 12399/S 12436/S 12515/S 12662/S 
13322/S 13564/S 13707/S 13803/S 14003/S 14075/S 14144/S 14377/S 

bitock number 942 9475/58 9485/S 9814/S 11309/S 11389/S 11443/8 11558/5 11707/S 
12003/S 12035/S 12057/S 12253/SsS 12298/8 12395/5 12399/S 12436/S 
12515/S 12662/S 13322/S8S 13564/Ss 13707/S 13803/S 14001/S 14003/S 
14074/S 14075/S 14144/S 14377/S 

lolock p 10543 9475 $485 9814 11308 11389 11443 11558 11707 

i , 12009 12035 12057 12253 12298 12395 123998 12436 
12515 12662 13322 13564 13707 13803 14001 14003 
14076 14075 14144 14377 

jblock transfer length 2234 12220 

blocked 10326 13848/M 13875/M 13965 

boffset 11468 11478/M 11480/M 11491/M 11482 11801 

vouffer area 2236 12217 

‘puffer area 3346 12224 

buffer descriptor 11877 11812 11915 12007 12056 

buffer descriptor _type $72 11912 

-byte_ offset 7732 13261/M 


x KE REFERENCE ABBREVIATIONS : Mtmodify, Atattribute, S:subscript, I:I/O ref, Reread, Wewrite, Psparameter” 


REFERENCES OF 
IDENTIFIER--- eee eee eet ee ee eee 


check_pages 
clear 


clock 


cmc$central_memory element 
cme$central_processoer_ element 
cme$channel_adapter_element 
cmc$choose_any_pp 

cmc$choose_ pp_by_barrel 
cmc$choose_pp_by_ channel! 
cmce$choose_ specific _pp 
cme$communications element 
cmc$controller element 
cmc$data_channel_element 
cmc$external processor element 
cmc$iou_element 
cmc$mainframe_element 
cmc$max_equipment_per_channel 
cmc$max_esm_size 
cmc$max_low_speed_ port number 
cmc$max pp_per_iou 
cmc$max_side_door port number 
cmc$max_units_per_ controller 
cmeSmt5680_xx 

cmcSmt5698 xx 

cmceSmt698 xx 

ecmce$mt7021_ 3x 

cme$mt7021_ 4x 

cme$mt7221_ 1 

cme$mt7221_ 2 so 

cme$on 

cme$pem_element 
cmc$pp_element 
cmc$storage_device_element 
cmt$central_memory_ port _number 
cmt$channel_descriptor 
cmt$channel_identification 
emt$channel_ordinal 
cmt$controliler type 
‘cmt$element_name 


cmt$element_ reservation 
cmt$element state 

cmt$element_ type 
cmt$esm_maintenance_buffer_loc 
cmt$esm_memory_size 
cmt$hardware_address 

cmt $model_number 
cmt$peripheral descriptor 


*eX 


REFERENCES OF 


IDENTIFIER-------------------- 


cmt$physical_address_ parts 
cmt$physical_address_ specifier 
cmt$physical_equipment_number 
cmt$physical_unit_number 
cmt$pp_identification 
cmt$pp_ordinal 
cmtS$pp_reservation 
cmt$pp_reservation_ choices 
cmt$product_ identification 
cmt$product_number 
cmt$seriai_number 

cmtS$upline_ connection 
command_ index 


condition 


condition 
condition 
condition 
condition 
condition 
condition 
condition 
contents 
contiguous pages 
controls 


conv 
convert 
count 


count 


count 

count 

count 

count 

count _removed 
cp_time 

cpt ime 
cptime_next_ age working set 
cpu_idie statistics 
cpus 

cst_p 


eK 


mmm$monitor request processor 


DEFINED 
ON LINE 


14519 
$567 


13746 


8390 
8991 
8932 
$033 
$034 


REFERENCE ABBREVIATIONS 


mmm$monitor_ request processor 


DEFINED 
ON LINE 
8377 
83974 
7883 


11537 
12633 
13116 
14466 
12375 

4245 
T3747 

4612 

3834 
10853 
10173 


REFERENCE ABBREVIATIONS 


eoeworwreenmreceeas = & @ @ 


NOS/VE CYBIL/II 


REFERENCES 


145198 
9510/M 
13349/M 
141593/M 
13832/M 
138891 
&866 
8855 
8859 
$004 
SOO6 
9008 
9011 
8859 
8860 
8857 


on 
7] 
o 
(3 
ul 


M=emodify, 


NOS/VE CYBIL/II 


1.0 89102 


14522 
9545/M 
13942/M 


13833 
13892 
9096 


9101 


9101 
9102 
9098 


9057 


8837 


14532 
9642/M 
13976/M 


13849 


8838 


8803 
8946 


3840 


9047 


Azattribute, 


1.0 83102 
REFERENCES 

8974 
8354 
7864 89357 
8958 
9002 9012 
9018 
8864 
9003 
9041 
SO66 
9042 
9044 9045 
12212 12217/8 12220/S8 
12316/S 12317/8 
10181/M 12048/M 12265/M 
13011/M 13142/M 13185/M 
10191 
12048 
12265 
12871 12874 12877 
12998 13000 13011 
13142 13185 13192 
13615 
11782 
12663/M 12667/M 12667 
13840 13848/M 13849/M 
13875/M 13883/M 13884/M 
$297/M 92398 
$289 
11294/M 11294 11310 
13505 13803 13803 
$501/M $501 $510 
9586/M 9586 $635/M 
$818 9820 $820/M 
11488 11494/M 11494 
11814 11814/M 11814 
13349/M 13349 13349 
13942/M 13942 13976/M 
13878/M 13978 14003/M 
14075 14075 14075/M 
14144 14152/M 14152 
14158 14153/M 14159 
11752/M 11753 11753 
12641/M 12657/M 12657 
13210 
14489 
12441/M 12463/P 12464 
13948 13950 13850 
1394&8/M 13850/M 13872 
13872 
13836 13837 
11832 
10175/M 

Memodify, Azattribute, 


$820/M 
13878/M 


13870 


9045 


8813 
8355 


$=subscript, 


12223/S8S 


12871/M 
13182/M 


13241 


12671 
13850/M 
13965 


11311 
13803 
9510/M 
9635 
9820 
11494 
13322/M 
13349/M 
13976 
14003 
14075 
14182 


11758/M 


12481/P 


S=subscript, 


1989-08-21 13:33:34 

11488/M 11494/M 11814/M 13322/M 
14003/M 14075/M 14144/M 14152/M 
13874 13884 13885 1383930/M 
8827 8843 8844 8856 
8965 3019 $040 gso33 

Iz-I/O ref, Reread, Wewrite, 

1989-08-21 13:33:34 

12224/S 12308/S 12309/S 12311/S 
12874/M 12877/™M 12998/M 13000/M 
13241/M 13615/M 
12672 
13863 13867/M 13870/M 13873 
11311 11584/M 11584 13505/M 
13805 13806 13808 
95106 9542 9543/M $543 
$3642 §$642/M $9642 9818/M 
11488/M 11488 11488 11488/M 
11494/M 11484 11814/M 11814 
13322 13322 13322/M 13322 
133493 13938/M 13938 13942 
13976 13S76/M 13976 13978 
14003 14003/M 149003 14075/M 
14144/M 14144 14144 14144/M 
14152/M 14152 14159/M 14159 
11755 

I:s1/0 ref, R=read, Wewrite, 


PAGE 463 


Pzsparameter 


PAGE 464 


Pzeparameter - 


REFERENCES OF 


_ PDENTIFIER----- + eee ee eee eee ee 


cst _p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 
cst_p 


cst_p 

cst_p 

cst_p 

cst_p 

est ep 

cst_p 

cst_p 

cyclic_age 
cyclic_aging interval 


data 

data_index 
deadstart_upper 
decrement_inhibit swap 
-delayed_swapin_work 
delete pt _entry_ ok 
desc 
dadestination_aste_ p 
destination_pfte_p 


destination_pfti 
destination_pti 
destination pva 
destination_ste_p 
,destination_stxe_p 
destination_sva 

determine _move_page_status 
dfc$active 

dfc$awaiting recovery 
dfc$command record bytes 
dfc$deact ivated 
dfc$division_overwrite_wor 
dfc$esm_command_record_siz 
dfc$esm_connection 
dfc$esm_header_record size 
vdfc$esm_maintenance_buf_si 
dfc$esm_memory base shift 
dfc$header_record_bytes 
dfcS$inactive 
dfc$max_data_record bytes 


REFERENCES OF 


IDENTIFIER------- come eee eee eee 


dfc$max_esm_divisions 
dfc$max_esm_memory size 


as 
e 


ze 


*** 


dfc$max_ number _of mainframes 


,afc$max_number_of queues 
dfc$max_queue_entries 


dfc$max_req_ timeout _count_value 
dfc$max_request_buffer_ entries 
dfc$max_ retransmit count value 


dfc$maximum_lifet ime 
dfc$maximum_queue_ interfac 
. A@fc$maximum_user_ buffer ar 
dfc$maximum_user_ data _area 
dfc$min_cdcnet_errors 


dfc$min_data_record bytes 
dfc$min_ driver _test_errors 
dfc$min_ecc 


-dfc$min_esm_division_size 
dfc$min_esm_memory_ size 
dfc$min_mm_recovery errors 

_afc$mock_ connection 
dfc$monitor 
dfc$monitor_allocate 
dfc$monitor_io 


-adfc$queue_assignment_strng_ size 


dfc$recover ing 
dfc$task_services 
.dfc$terminated 
dfc$unrecovered disk_error 
afe$server_has_terminated 
dft$allocated command_ buff 
Yaft$allocated data_rma_lis 
dft$allocated monitor buff 
dft$channel_ definition 

s dft$channel_specification 
dft$connect ion_address 
dft$connect ion_descr iptor 
_aft$connection_f lags 

. dftS$connect ion_type 
dft$cpu_queue 
dft$cpu_queue_entries 

-, G¥t$cpu_queue_entry 


es 
ea 


er 
t 
er 


xx 


mmm$monitor_request_processor 


DEFINED 
ON LINE 
12369 
12576 
12583 
12697 
12712 
12835 
12841 
12961 
13067 
13274 
13379 


14277 
14283 
14329 
14337 
14437 
14441 
14862 

4507 

4618 


92390 
9291 
11032 
11538 
33935 
11771 
$271 
13117 
13118 


13119 
13120 
7731 
13121 
13122 
13123 
13071 
8312 
8313 
4005 
8312 
3392 
4013 
8256 
4014 
3993 
3999 
4004 
8312 
4008 


REFERENCE ABBREVIATIONS 


mmm$monitor request processor 


DEFINED 
ON LINE 
4002 
3994 
4001 
8322 
8323 
8207 
7887 
8211 
8387 
9125 
8334 
8338 
308 


4009 
303 
13 


79395 
8256 
8061 
8O66 
8117 


REFERENCE ABBREVIATIONS 


wee ee eee ee ee eee “REFERENCES 


NOS/VE CYBIL/TII 


NOS/VE CYBIL/II 


7891 
4023 


12877/P 
8220 
8181 
8244 
8816 
7855 
7382 
73968 
7988 
7851 
7955 
8063 
S066 


Msmodify, Atattribute, S:subscript, 


1.0 89102 


REFERENCES 
12426/P 
12590/M 
12590/P 12594 
12721/M 
12721/P 12769 
12843/M 
128483/P 12851/P 
12987 12993/P 
13139/P 13140/P 
13297/P 13308/P 
13421/P 13422/P 
13461/P 13470/P 
13600/P 13605/P 
14294/M 
14294/P 14307/P 
14356/M 
14356/P 14371/P 
14444/M 
14444/P 14445 
14476 14486 
12830/M 
14409 
9298/M 9300/S 
9299 8300/5 
13501 14188 
11555/M 11715/M 
11805/M 141405 
11784/M 11798/M 
$295 9296 
13154/P 13220 
13219/M 13220/M 
13240/S 13254/S 
13212/M 13213/P 
13210 13212/S 
13149/P 13154/P 
13154/P 
13155/P 
13154/P 13210 
13109 13170 
8281 
8288 
4013 8226 
8297 
4020 
4021 
7852 8253 
4021 
4024 
4021 4022 
4014 
8288 
88439 

M=modify, 


1.0 89102 


8838 
7856 
7983 


8074 


12615/P 


12865 /P 


13154/P 
13309/P 
13439/P 
13471/P 
13606/P 


14446/P 
14488/P 


$301/S 
$301/S 


11741 
12485/M 
11820 


13226/P 
13221/M 


132585/S 
13214/P 


13221 


4022 


Azattribute, 


8828 


7942 
8112 


373 


13251 

13339/P 
13440/P 
13489/P 


12485 


13228 
13226/P 


13226/P 


S=subscript, 


8327 
8113 


13450/P 13451 
13490/P 13491 
13252/P 
13233/M 13234 
13229 
I:=I/0O ref, 
1989-90 
8328 
325 328 
31 35 
57 60 
82 86 
107 110 
133 136 
158 161 
184 187 
211 214 
237 240 
263 266 
292 296 
I=I/0O ref, 


1989-08-21 


13:33:34 PAGE 465 
/P 13452 13460/P 
/P 13552/P 13598/P 
/M 13235/P 13239/S 
Reread, Wewrite, Psparameter 
8-21 13:33:34 PAGE 466 
331 334 
33 42 
63 66 
89 92 
113 116 
139 143 
164 167 
190 193 
217 221 
244 247 
270 273 
303 305 
Reread, Wewrite, Psparameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 881062 1989-08-21 13:33:34 PAGE 467 


IDENTIFIER----- eee eee ee ee ee -DEFINED------- eeereee = -REFERENCES 

ON LINE 
dft$cpu_queue_header 8069 8062 
dftS$cpu_queue_pva_entries 7942 7928 
dft$cpu_queue pva_entry 7954 7943 
dftS$data_descriptor 8042 8009 8010 8011 
dft$dma_adapter 7931 7918 
dft$driver_ queue 7959 73851 
dft$driver queue entries 8000 7961 
dft$driver_queue_ entry 8002 8000 
dftS$driver_queue header 7964 7360 
dft$driver_queue_header_ flags 7971 7965 
dft$driver queue pva_entries 7940 7927 
dft$driver queue_pva_entry 7350 7941 
dft$driver queue _rma_entries 7938 7926 
dft$driver_ queue rma_entry 7945 79393 
dftS$esm_base_addresses 7307 7900 8817 8831 
dftSesm_definition_table_ entry 8812 8809 8822 
dftS$esm_pp_information 7862 7857 7858 
dft$inquiry message 8728 8713 8782 
dftS$inquiry tracer 8733 8729 
dft$interrupt 7976 7366 
dftS$lifetime 8384 8380 
dft$mainframe_set 3986 33936 3337 4o4as 4050 
dft$maximum_data_bytes 8849 8818 8832 
dft$monitor _io_types 8097 8141 
dft$p_allocated_ data_rma_list 8181 8093 
dft$p_command_buf fer 8219 8130 8131 
dft$p_ data_rma_list 8168 8133 
dft$p_queue_interface_ table 78395 7848 
dft$p_send_data 8348 8148 8149 
dftS$partner_status 8271 8078 
dft$pp_element_ reservations 9121 7866 
dftSpp_status 7869 7863 
dft$q_interface _directory_entry 7846 7844 
dft$queue_directory 7917 7902 
dft$queue_directory_ index 9128 7832 
dftS$queue_ entry flags 8014 8003 8125 
dft$queue_entry_ index 8328 7834 
dft$queue_entry_ location 7831 7821 
dft$queue_entry type 8317 8135 
dft$queue_ index 8327 7833 
dft$queue_interface_ directory 7843 7841 
dft$queue_interface table 7837 7895 
dft$request_buffer 8769 8765 
dft$request_buffer directory 8758 7899 
dft$request_buffer_ entries 8774 8771 
dft$request_buffer entry 8779 8775 
dft$request_ buffer entry flags 8787 8780 
dft$response_flags 8706 8698 
dft$response_ parameter 8716 8700 
dft$retransmission_digit 8739 8735 
dft$rpc_progress record 8359 8151 
dft$send data_size 8347 8150 8156 8158 8159 8362 8363 8368 
dft$send_ parameter size 8344 8367 


se REFERENCE ABBREVIATIONS : Memodify, Atattribute, S*tsubscript, I=I/O0 ref, R=tread, Wewrite, Ptparameter 


REFERENCES OF mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 468 
IDENTIFIER------- She ergs ave ee 8 << DEF UNE D <s8:2 ss15 secs sie ss REFERENCES 
ON LINE 

dft$server_iocb_error_condition 8478 8464 

dft$server lifetime 8380 8079 

dftS$server state 8312 8280 8315 

dft$side_door_ports 8836 8830 

dft$transaction_data 8100 80392 

dftS$transact ion_digit 8738 8734 

dft$transact ion_state 8426 8126 8433 8730 

dfv$file server debug enabled $309 13172 

disk _ file descriptor_offset 35398 14496/M 14500/M 

disk _ file descriptor _p 425 14496 

display integer monitor $270 9305 13173 

display line $264 $266/P 

display line $304 $304/P 

display_monitor 8263 9267 9304 

dm_reject_tabie 14124 14150 14164/M 

dmc$az2 6115 6119 

amc$device manager_error_code 6132 6133 6136 6138 6142 6145 6148 6151 6154 
6157 6160 6163 6166 6169 6172 6175 6178 
6181 6184 6187 6190 6193 6196 6199 6202 
6205 6208 6211 6214 6217 6220 6223 6226 
6229 6232 6235 6238 6241 6244 6247 6250 
6253 6256 6259 6262 6265 6268 6271 6274 
6277 6280 6283 6286 6289 6292 62385 6298 
6301 6304 6307 6310 6313 6316 6319 6322 
6325 6328 6331 6334 6337 6340 6343 6346 
6349 6352 6355 6358 6361 6364 6367 6370 
6373 6376 6378 6382 6385 6388 6391 6394 
6337 6400 6403 6406 6403 6412 6415 6418 
6421 6424 6427 6430 6433 6436 6439 6442 
6445 6448 6451 6454 6457 6460 6463 6466 
6469 6472 6475 6478 6481 6484 6487 6490 
6493 6496 6499 6502 6505 6508 6511 6514 
6517 6520 6523 6526 65295 6532 6535 6538 
6541 6544 6547 6550 6553 6556 6559 6562 
6565 6568 6571 6574 6577 6580 6583 6586 
6589 6532 6595 6598 6601 6604 6607 6610 
6613 6616 6619 6622 6625 6628 6631 6634 
6637 6640 6643 6646 6649 6652 6655 6658 
6661 6664 6667 6670 6673 6676 6879 6682 
6685 6688 6691 S694 6700 6703 6706 6709 
6712 6715 6718 6721 6724 6727 6730 6733 
6736 6739 6743 6746 6749 6754 6757 6760 
6763 6766 6769 6772 — 6775 6778 6781 

dmc$max_bytes_ per_allocation 6111 6084 6104 6106 6107 

dmc$max_transfer_size 386 381 11477 11480 11482 11483 

dmc$min_bytes_per_allocation 6110 6105 

dmp$deallocate_file_space $312 14487 

dmt$chapter_info 6079 11471 

dmt $chapter_number 6073 6064 

dmt$global_file name 8545 8457 

amt $page_ status 6090 6080 

dmt$system_file_id 3588 3579 3968 6063 7700 7704 7705 7713 7717 
8140 8459 $180 10302 


eee REFERENCE ABBREVIATIONS : M=modify, Azattribute, S:subscript, I:I/0 ref, Reread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER 


dp 


dpc$console_row_size 
dpc$top_line_message_ size 
dpp$display_error 

rasc$max_ number _ of_ ious 
dsw_job shared asid_ changed 


entry _ status 
entry updated 


eoffset 


exc lude_ partial pages 


fde_p 
fde_p 
‘dep 
fde_p 
fde_p 
.Fde_p 
fde_p 
fde_p 
#de_p 
‘fde_p 
fde_p 
fde_p 


REFERENCES OF 


File_hash 


file hash 


“File _ Timit 
File _ sfid 


* eX 


mmm$monitor request processor 


DEFINED 
ON LINE 
13758 


9260 
9254 
9248 
1671 
12376 


3904 
4482 
11469 

8883 


$322 

$368 

$370 
10076 
10117 
11460 
11470 
12368 
12700 
12964 
13065 
13065 
13065 
13065 
13073 
13124 
13272 
13272 
13272 
13281 
13377 


13377 


13377 


13387 


13688 
13688 
136397 
13737 
13737 
13741 
14111 
14111 
14118 


REFERENCE ABBREVIATIONS 


mmm$monitor request processor 


oer eee ee eee eee ----DEFINED 


first image pfti 


“first _pfti 


flags 
Found 
‘Found 
~ found 
found 
found 


free _asid 


fwd 


be 


get_system_jobs_ working set 


x 
2 


gfc$fde_size 


gfc$fde_table_base 


gfc$fk_catailog 


gfc$fk_job_local_ file 
gfc$fm_mass_storage file 
gfc$fm_served file 
gfc$fm_transient_ segment 
gfc$monitor_ inter locks 

: 


gfc$qs_global_shared 
igfc$qs_job_shared 


*ex 


ON LINE 
14211 
14217 
14277 
14277 
14281 
14329 
14329 
14338 
14467 

3447 


408 


3449 


$43 


REFERENCE ABBREVIATIONS 


we3coce em emewnemeewnweewen ew « 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89162 
REFERENCES 
13847 13848/S 
13863/S 13864/S 
13875/S8 13877 
9254 
9249 
9266 9304 
1558 
12485 
11717 13960 
12113/M 
11483/M 11485/M 
12643/P 12906/P 
9344/M 9345 
9375/M 9375 
9375/P §9377/P 
10082 10083 
10123 10127/M 
11490/M 11490 
11490/P 11491 
12389/S 12427 
12730/P 
12993/P 12999 
13139/P 13139/P 
13139/M 13139 
13140 13140/M 
13170 
13101 
131338/P 13140/P 
13308/P 13308/P 
13308/M 13308 
13309 13309/M 
13308/P 13309/P 
13421/P 13421/P 
13490/P 13480/P 
13421/M 13421 
13470/M 13470 
13605/M 13605 
13422 13422/M 
13471 13471/M 
13421/P 13422/P 
13461/P 13470/P 
13599 13600/P 
13715/P 13715/P 
1371S/M 13715 
13715/P 13716 
14049 /P 14049/P 
14049/M 14049 
14049/P 14050 
14157/P 14157/P 
14157/M 14157 
14157/P 14158/P 
M=modify, 


1.0 8910602 
REFERENCES 

14258/mM 14258 
14258/P 14259/M 
14307/P 14307/P 
1AZO7T/M 14307 
14307/P 14308/M 
14371/P 14371/P 
14371/M 14371 
1433932/P 1433833/M 
14488/P 14495 
9334 9375 
13460 13470 
14157 14258 
$345 $375 
13460 1347090 
14157 14258 
$333 9345 
13308 13308 
13460 13460 
13598 13598 
14157 14157 
14392 14382 
13716 
13470/P 13471/P 
13501/M 13502 
12664/M 12665/S 
1006083 13622 
11926 11927 
12243 12244 
13210 13211 
13713/M 13724/M 
14489 14490 
12645 12674 
11287/M 11287 
11584 11584 
13476 13483 
11313 13803 
9334 9375 
134606 13470 
14157 14258 
$334 9360 
13450 13460 
14049 14157 

4993 

438 

424 14495 

427 
12999 14498 
$376 13139 
13552 13598 
14404 
13611 
13425 

Memodify, 


13849/S 
13865/S 


11492/M 


114391 
12428/P 


13002/P 


13154/P 


13310 

13439 /P 
13552/P 
13439/M 
13490/M 


13440 
13491 
13425 
13471/P 
13605/P 


13718/P 


Azattribute, 


14404/P 
14392/M 


14496 
11490 
13490 
14307 
11490 
13490 
14307 

$375 
13421 
13470 
13605 
14258 
14404 


12666/S 


11288 
11584/S 
13505/M 


11490 
13490 
14307 

$375 
13470 
14258 


13308 
13605 


Aczattribute, 


13850/S 
13867/S 


11501 


11492 
12430/P 


13170/P 


13439/P 
13552/P 
13439 
13490 


13440/M 
13491/M 
13439/P 
13490/P 
13606/P 


S=subscript, 


14404/P 
14392 


14437/P 
13139 
13552 
14371 
13139 
13552 
14371 
9375 
13421 
13470 
13605 
14258 
14404 


12666/S 


11291/S 
11584/M 
13505 


13139 
13552 
14371 
1143830 
13490 
14307 


13421 
13715 


S=subscript, 


138S50/S 
13868/S 


13450/P 
13598/P 
13450/M 
13552/M 


13451 
13606 
13440/P 
13491/P 
13611/M 


14404/M 


14498/M 
13308 
13598 
143392 
13308 
13598 
14392 
114390 
13439 
13480 
13715 
14307 


12668/M 


11293/M 
12443 
13505 


13308 
13598 
14392 
13139 
13552 
14371 


13439 
14049 


I:1/O ref, 


IzI1/O ref, 


1989-08-21 


13851/8 
13868/S 


13450/P 
13598/P 
13450 
13552 


13451/M 
13606/M 
13450/P 
13552/P 
13622 


1989-08-21 


14404 


13421 
13605 
14404 
13421 
13605 
14404 
11490 
13439 
13490 
13715 
14307 


12668/S 


11497 
124587 
13505/S 


13421 
13605 
14404 
13308 
13598 
14392 


13450 
14157 


Rzread, 


13:33:34 
13862 13863 
13870/S 13873/S 
13470/P 13470/P 
13605/P 13605/P 
13460/M 13460 
13598/M 13598 
13461 13461/M 
13451/P 13460/P 
13553/M 13598/P 
13634/P 13646/M 


Wewrite, Pzp 


13:33:34 
13439 13450 
13715 14049 
13439 13450 
13715 14049 
13139 131398 
13450 13450 
13552 13552 
14049 14049 
14371 14371 
11529 11584/M 
13162 13177 
13505/M 
13439 13450 
13715 14049 
13421 13439 
13605 13715 
14404 
13470 13490 
14307 14371 


Reread, Wewrite, 


PAGE 469 


arameter 


PAGE 470 


P=parameter 


REFERENCES OF mmm$monitor_ request_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 471. 
LOENTIFIERS << o7 3s ee eee s ee eee DEFINED? 6694 --'2 e+ sees s REFERENCES 
ON LINE 

gfc$tr_ job 3457 $337 $375 10125 11490 12012 12038 . 13139 13140 
13308 13303 13421 13422 134385 13440 13450 13451 
13460 13461 13470 13471 13490 13491 13552 13598 
13605 13606 13715 14049 14157 14258 14307 14371 
14392 14404 

gfc$tr_ system 3457 $336 $375 11383 11490 13138 13308 13421 13439 
13450 13460 13470 13490 13552 13598 13605 13715 
14048 14049 14157 14258 14307 14371 143392 14404 

gfc$tr_system_wait recovery 3457 13560 

gfp$mtr_get_fde_p $320 $349 $375 11490 13133 13308 13421 13439 13450 
13460 13470 13490 13552 13598 13605 13715 149049 
14187 14258 14307 14371 14392 14404 

gfp$mtr_get_locked fde_p $368 $380 13139 13308 13421 13439 13450 13470 13490 
13552 13598 13605 13715 14049 14157 14307 14370 
14404 

gftS$allocation_unit_size 458 413 

gft$attach_ count 463 404 405 

gft$fde_flags 433 401 

gftS$file_ desc_entry_ p 330 $322 $971 11470 14217 14338 

gft$file_descriptor_entry 338 3390 403 824 

gft$file_descriptor_index 472 3447 

agft$file kind 483 407 495 

gftS$file_ media 502 423 

gftS$locked_ file _desc_entry_p 824 $313 3370 $730 $754 10076 10117 10136 10153 
12368 12700 12964 13073 13124 13281 13387 13697 
13741 14118 14281 14341 14343 14467 

gft$open_count 532 406 548 

gft$queue status 543 416 

gft$segment_lock_info 547 4O9 

gft$signature_lock 508 399 

gft$system_file_ identifier 3446 3436 3588 4836 4996 5198 7726 $320 9368 
10118 10826 13397 

gft$table residence 3457 3448 $330 

gft$transfer_unit size 469 414 

gliobal_task_id 420 14259/M 14393/M 14406/M 

giobal_task_id 4737 13706/P 14251 14381 14406 

global_template_file 437 10083 13622 

hash $327 $333/M 9340/M 

hash $368 $375/M $375/M 

hash 11460 11490/M 11490/M 

hash 13065 13139/M 13139/M 

hash 13272 13308/M 13308/M 

hash 13377 13421/M 13421/M 13439/M 13439/M 13450/M 13450/M 13460/M 13460/M 
13470/M 13470/M 13490/M 13490/M 13552/M 13552/M 13598/M 13598/M 
13605/M 13605/M 

hash 13688 1371S/M 13715/M 

hash 13737 14049/M 140439/M 

hash 14111 14157/™M 14157/M 

hash 14211 14258/M 14258/M 

hash 14277 14307/M 14307/M 

hash 14329 14371/™ 14371/™M 14392/M 143932/M 14404/M 14404/M 

hash_count 11886 11926 

** * REFERENCE ABBREVIATIONS Msmodify, Asattribute, S=subscript, I=tI/0O ref, Rsread, Wtwrite, P=parameter 


REFERENCES OF mmm$monitor request _processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 472 
IDENTIFIER--+ cee e er ee ter eee DEFINED------+-+---"----- REFERENCES 
ON LINE 

hash_count 12180 12243 

head 558 10229 10230/S 11428 11429 11665 11665 11753 11753 
11786 11786/S 14022 

hex digits $275 9300 9301 

highest offset 7718 13469/M 13480 13481/M 

i 13760 13834 13835/S 13836/S 13837/S 

i 14125 14130/M 14149 14163/M 14163 14164/S 14165 

j 14182 14186 14187/8S 

i#program_error S365 9346 $375 95106 95406 §642 $820 11488 11490 
11494 11814 13139 13308 13322 13343 13421 13439 
13450 13460 13470 13490 13552 13598 13605 13715 
13942 13976 13978 14003 14049 14075 14144 14152 
14157 141593 14258 14307 14371 143392 14404 

i#¥real_memory_address 9434 12305 14235 

id 9565 9501 9501/M 9510 9539 §580 s584/M S635 9635/M 
9642 $818 9818/M $820 11488 11488/M 11488 11494 
11494/M 11494 11814 11814/M 11814 13322 13322/M 13322 
133493 13349/M 13349 13938 13938/M 13942 13976 13976/M 
13976 139378 14003 14003/M 14003 14075 14075/M 14075 
14144 14144/M 14144 14152 14152/M 14152 14158 14159/M 
141593 

identifier 5596 11783/M 11802/M 

identifier 5617 11781/M 

idle _ candidates 13761 13859/M 13863 

idle dispatching queue time 10361 13874 

idle _io_active 4754 13837 

idle _no_io_active 47583 13836 

ignore status 12181 12231/P 

ijl_ordinal 976 12056 

ijl_ordinatl 3429 10125 11488/P 12394 12435/M 12594 12662/P 13140 13309 
13422 13440 13451 13452 13461 13471 13491 13606 
13608/M 14001/P 14002/P 14403/M 

ijl_ordinal 3832 12594 12769 13140/P 13251 13309/P 13422/P 13440/P 13451/P 
13452 13461/P 13471/P 13491/P 13606/P 

ijl_ordinal 4508 11388 11442 11706 11839 11940 12009/P 12035/P 12094 
12253/P 12276 12277 12298/P 12455/M 12475/M 12530/M 12768 
13251/M 13322/P 13564/P 14074/P 14075/P 14144/P 14417/M 

iji_ordinal 7814 11557 

ijl_ordinal 9471 $475/Ss $475/$S 

ijl_ordinal 9483 9485/Ss 

ijl_ordinal 9613 14376 

ijl_ordinal 9805 $814/S 9814/S 

ijl_ordinal 8806 9814/P 9819/P 

ijl_ordinal 11303 113039/S 11309/S 

ijl_ordinal 11368 11558/s 11558/S 11707/8 11707/S 

ijl_ordinal 11378 11389/S 113839/S 

ijl_ordinatl 11426 11443/S 11443/S 

ijl_ordinal 11539 11388/M 11389/P 11442/M 11443/P 11557/M 11558/P 11706/M 11707/P 

ijl_ordinal 11876 12008/S 12009/5S 12035/S 12035/S 12087/S 12057/S 

ijl_ordinal 11888 118939/M 11940 12056/M 12057/P 12094 

iji_ordinal 12173 12253/S 12253/S 12298/S 12298/S 

ijl_ordinal 12183 12276/M 12277 

** x REFERENCE ABBREVIATIONS Memodify, Atattribute, S=:subscript, I2I/0 ref, Reread, Wewrite, P=parameter 


*** REFERENCE ABBREVIATIONS 


Msmodify, 


Asattribute, 


S=subscript, 


I=1/0 ref, 


Reread, Wsewrite, 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 473 
IDENTIFIER-- eee cere tt er eee eee DEFINED---------225 ---°-REFERENCES 
" ON LINE 
ijl_ordinal 12367 12395/S 
ijl_ordinal 12367 12399/S 12399/S 12436/S 12436/S 
ijl_ordinal 12503 12515/58 12515/s 
ijl_ordinal 12628 12662/S 12662/S 
ijl_ordinal 13272 13322/P 13322/P 
1jl_oerdinal 13272 13322/S 13322/Ss 
ijl_ordinal 13377 13564/S 13564/S 
ijl_ordinal 13688 13707/S 13707/S 
ijl_ordinal 13698 13706/P 13707/P 
ijl_ordinal 13737 13803/5 13803/S 14003/S 14003/5S 14075/S 14075/S 
ijl_ordinal 13737 14001/S 14074/S 
ijl_ordinal 13737 14003/P 14003/P 14075/P 14075/P 
ijl_ordinal 14111 14144/P 14144/P 
ijl_ordinal 14111 14144/S 14144/S 
ijl_ordinal 14329 14377/S8S 14377/Ss 
ijl_p 12638 12662/P 12664 12671/M 
ijle_p 3833 12615/P 13139/P 13308/P 13339/P 13421/P 13439/P 13450/P 13460/P 
13470/P 13490/P 13552/P 13598/P 13605/P 14307/P 14371/P 14446/P 
ijle_p $321 $338 
ijle_p 9368 9375 
ijle_p 3369 9375/P 
ijle_p 9472 9475/M 
ijle_p 9493 9502 9504/P 
ijle_p 9614 13939 13943 
ijle_p 9630 9636 $638/P 
ijle_p $305 9814/M 
ijle_p 9805 9819 $819/P 
‘ijle_p 9809 9814/P gs815 98139/P 
ijle_p $832 9840 9842/P 
ijle_p 11303 11303/M 
ijle_p 11307 11309/P 11310 11310 11311 
ijle_p 11368 11558/M 11707/M 
ijle_p 11378 11389/M 
ijle_p 11426 11443/M 
ijle_p 11460 11488 11488/P 
ijle_p 11460 11480 
ijie_p 11460 11494 11494/P 
ijle_p 11461 11476 11488/P 11430/P 11494/P 11520 
ijle_p 11540 11389/P 11401 11405/M 11405 11414/P 11443/P 11444 .11558/P 
11560/M 11707/P 11717 11718 11719/P 11737 11741/M 11741 
11742/M 11742 11743 11744/M 11745 11746/M 11746 11748 
11748 11749/P 
tjle_p 11765 411814 11814/P 
ijle_p 11772 11788/P 11814/P 
‘ijle_p 11876 12009/M 12035/M 12057/M 
ijle_p 11887 12009/P 12010/M 12010 12011/M 12011 12014/M 12014 12035/P 
12036/M 12036 12037/M 12037 12040/M 12040 12057/P 12059/M 
12059 12060/M 12060 12061/M 12061 12063 12064/M 12065/M 
12065 12066/M 12066 12067/M 12070 12073 12073 120784 
12075/M 12075 12076 12077 12080/M 12081/M 12081 12082/S8 
12084 12085/M 12087/M 12087 12091 12091 12091 12091 
L ; 12082/S 12104 12104/S 12116 12121 12124/M 12124 12125/M 
ijle_p 12173 12253/M 12298/M 
** + REFERENCE ABBREVIATIONS Memodify, Azattribute, S=subscript, I:1/0 ref, Rtread, Wewrite, Ptparameter 
REFERENCES OF mmm$monitor_request_ processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 474 
IDENTIFIER--- +e ree eee ree eee --DEFINED----- crete ee ee “REFERENCES 
ON LINE 
ijle_p 12182 12253/P 12254/M 12254 12255/M 12255 12256/M 12256 12298/P 
12293/M 12299 12300/M 12300 12325/M 12325 
ijle_p 12367 123939/M 12436/M 
“ijle_p 12377 12399/P 12404 12404 12449 /M 12449 12450/M 124590 12460 
12460 12469/M 12469 12470/M 12470 12479 12479 12480 
12481/P 12485/M 12485 
ijle_p 12503 12515/M 
1jle_p 12504 12517 12524/M 12524 12525/M 12525 
i1jle_p 12628 12662/M 
ijle_p 13065 13139/P 
ijle_p 13065 13139 
ijle_p 13272 13308/P 
ijle_p 13272 13308 
ijle_p 13272 13322/P 13322 13322/P 
ijle_p 13272 13322/M 
ijle_p 13272 13322 13322/P 
ijle_p 13272 13349 13349/P 
“4jle_p 13282 13322/P 13349/P 
ijle_p 13377 13421/P 13439/P 13450/P 13470/P 13490/P 13552/P 13598/P 13605/P 
ijle_p 13377 13421 13439 13450 13460 13470 13490 13552 13598 
13605 
ijle_p 13377 13564/M 
ijle_p 13390 13564/P 13565 13565 13577 13578 13579 13580/P 
ijle_p 13688 13707/M 
Aijle_p 13688 13715/P 
ijle_p 13688 13715 
ijle_p 13699 13707/P 13715/P 
ijie_op 13737 13803/P 13803 13803 13803 
ijle_p 13737 13803/M 14003/M 14075/M 
ijle_p 13737 13976 13976/P 
ijle_p 13737 14003/P 14003 14003/P 14075/P 14075 14075/P 
ijle_p 13737 14003 14003/P 14075 14075/P 
ijle_p 13737 140439/P 
ijle_p 13737 140493 
ijle_p 13752 13843/M 13944 13945/M 13945 13948 13950 13950 13855/P 
13955/P 13957/P 13957/P 13960 13960 13963 13965/S 13971/P 
13874/P 13976/P 14003/P 14075/P 
ijle_p 14111 141448/P 14144 14144/P 
ijle_p 14111 14144/M 
ijle_p 14111 14144 14144/P 
ijle_p 14111 14152 14152/P 141598 144159/P 
ijle_p 14111 14157/P 
1jle_p 14111 14157 
ijle_p 14122 14144/P 14152/P 14157/P 14159/P 
ijle_p 14211 14258 
ijle_p 14214 14258/P 
ijle_p 14277 14307/P 
ijle_p 14277 14307 
ijle_p 14329 14371/P 14404/P 
ijle_p 14328 14371 14392 14404 
ijle_p 143298 14377/M 
ijle_p 14339 14377/P 14392/P 14404/P 14408 14410/M 
i jlo g494 9504/P 


P=parameter 


REFERENCES OF mmm$monitor_ request _processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER<--+ cre eee ete eee eee “DEFINED - + eee ee eee eee -REFERENCES 
ON LINE 

ijlo 9805 9819/P 

ijlo 9833 9842/P 

i jlo 10118 10125 

ijlo 11460 11488/P 

ijlo 13065 13140 

ijlo 13272 13309 

ijlo 13272 13322/P 

ijlo 13377 13422 13440 13451 

ijlo 13737 14003/P 148075/P 

ijlo 14111 14144/P 

in use 3430 10124 13140 13309 
13491 13524 13538 
14067 14139 14304 

in_use $612 9507/M 9507 $637 
$845 11488/M 11488 
11814 13322/M 13322 
13941 13976 13976/M 
14144/M 14144 14152 

include pages_in_dump 10078 10085/M 10087/M 10090/M 

inc lude_partial_pages 9883 12551/P 12598/P 12722/P 

index 519 10229/M 11786/M 

index_p 10556 9475 $485 9814 
12009 12035 12087 
12515 12662 13322 
14074 14075 14144 

inheritance 43397 14257 142989 

Inhibit_io 3808 9815/M 9816 

inhibit_io 13272 13322/M 13322 

inhibit ito 13283 13322/P 13323 

inhibit_io 13737 14003/M 14003 14075/M 

inhibit io 13745 14003/P 14005/M 14008 

inhibit io 14111 14144/M 14144 

inhibit to 14128 14144/P 14145 

inhibit _swap_count 3910 11741/M 11741 11748 
12059 12254/M 12254 
12451 12469/M 12469 
12526 

init io error 17548 11381 11552/M 11651 

init nmew_io 7678 T3634/P 13638/P 

init_new_io 7764 13002/P 13004/P 

init new _io 12703 12724 

init_pfte_p 11462 11477 11480 11482 

initial reassignable_ now 11541 11553/M 11752 

tnt $272 $237 

int $282 93297/M 

integ $280 $281 

io already active 12707 12717/M 12753/M 12787/M 

io_already active 12873 13003/P 

io already active 13391 13636/P 

io count 12706 12716/M 12735/M 12735 

io count 12972 13003/P 

io_count 13382 13636/P 

io_error 4516 11381/M 11433/M 11653 

** x REFERENCE ABBREVIATIONS M=modify, Atattribute, 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER: ----+-°>- Rie te e: ee ieee 8 ~DEFINED----+e eee cen -~REFERENCES 
ON LINE 
10 error 11374 11413 11413 11416/M 
11623/P 11627 11633/P 
io_error 11768 11780 11792 11801 
io_error 11890 12045/M 12046/P 
io_error 12184 12229/M 12231/P 12258/M 
io_error 14510 14517/M 14529/™M 
10 id 12705 12730/P 12734 127582 
io_id 12971 12977/M 13003/P 
io_id 133383 13410/M 13636/P 
io_id 14123 14131/M 14158/P 
io_identifier 11372 11557 
io pfti 10822 119332 
io type 114115 12205 12214 12306 
iecS$aliocate 1034 7820 11635 11875 
ioc$bid_area_size 2130 1844 
ioc$bid_ status response length 2125 2130 2134 
ioc$bid window length 1292 1301 1302 
iec$ccc cart_device status size 1158 1161 
iec$ccc_ cart_error_log_ size 1160 1163 
iec$ccc cart _sense_bytes size 1159 1162 
ioc$communication_buffer length 1559 1622 
ioc$detailed status length 1448 1490 
iec$detailed status _length_b 1446 1448 1495 
ioc$device_ status length 2126 2131 
iec$disk_ detailed status _length 1449 1450 
ioc$error_on_init 1038 11413 14528 
ioc$explicit read 1028 115998 11953 12205 
ioc$explicit_ read _no_purge 1032 11599 11600 11954 
ioc$explicit_write 1029 11597 11853 
ioc$extended status length 2127 2209 
ioc$initialize_ sectors 1032 11597 11954 
iocS$ipi_max_ status size 1842 1859 
iocS$ipi_tape_status_size 1841 1844 
ioc$keypoint_io 1032 11581 11925 11993 
toc$ma jor status size 1843 1858 
iocS$max_ccc_cart_error_id 1285 1244 
ioc$max_ipi_retry 3324 1088 
ioc$max_ multiple _tape_ requests 1414 1094 1120 2502 
ioc$max_number _tape_units 2217 2213 
ioc$max_response_length 1445 1446 
ioc$max_tape_ block _ length 22198 2222 2254 
ioc$max_tape_ blocks to_process 2218 1083 1090 2222 
ioc$max_tape_io_id 1413 1417 
ioc$max_unit_number 1537 1540 
ioc$media_error 1036 14526 
ioc$min_ccc_cart_resp_size 1161 1162 
ioc$min_response_tlength 1444 1161 1447 1844 
iocS$min_tape_block_ length 2223 2253 
ioc$no_error 1036 11416 11433 11558 
11653 11716 120485 
ioc$no_io 1031 11596 11872 12046/P 
ioc$pp_count 1558 1049 1430 
ioc$read_ahead_on_server 1034 7822 11625 119873 
*** REFERENCE ABBREVIATIONS : Mzmodify, Atattribute, 


13461 


13422 
13606 


S640/M 
11494 
133498 
13976 
14152/M 


13318/P 
11309 
12253 


13564 
14377 


14075 


14075/P 


12014/M 
122939/M 
12471/M 


11716 


11483 


12806 


12786 


Sssubscript, 


11552 
11637 


12260/P 


12796 


12214 


11988 


3305 


2252 


11581 


12067 
12230/P 


S=subscript, 


1889-08-21 13:33:34 PAGE 475 

13471 13491 13606 
13440 13451 13461 13471 
139399 14042 14047 14065 
9640 §9819/M 9819 9845/M 
11494/M 11494 11814 11814/M 
13343/M 13349 13939 13941/M 
14003/M 14003 14075/M 14075 
14152 14159 14159/M 141593 
14412/P 
113898 11443 11558 11707 
12298 12395 12399 12436 
13707 13803 14001 14003 
14077/M 14073 
12014 12040/M 12040 12059/M 
12299 12449/M 12449 12451/M 
12471 12524/M 12524 12526/M 
11488/P 11490/P 11491 11497 
12787 14526 14527 14528 

I=I/O ref, Rtread, Wewrite, Ptparameter 

1889-08-21 13:33:34 PAGE 476 

11559 11560 11581 11614 
11642/P 
12805 
12306 
2442 2552 
11614 11627 11637 11651 
122298 12258 
12259/P 

IzI/O ref, R=read, Wewrite, P=parameter 


ONS 


IDENTIFIER---- 3 eee rete eee DEFINED------ Se Ss arene es REFERENCES 
: ON LINE 
ioc$read_cmd_per_block 2407 2442 
ioc$read_for_server 1033 7818 11625 
_ioc$read_from_ciient 1033 7819 11607 
_jioc$read_mass_storage 1030 11599 11953 
' ioc$read_page 1028 7815 11625 
ioc$read_uft 1030 11599 11953 
ioc$response_buffer_ length 1561 1562 
ioc$response_buffer_ length_b 1562 1630 
ioc$server_allocation_error 1037 11792 
ioc$server_has_terminated 1037 11801 
ioc$swap_in 1029 7813 11556 
ioc$swap_out 1029 7813 11556 
ioc$tape_completion_code_max 2269 2308 
ioc$tape_max_busy retry 3328 1085 
iec$tape max _chan_parity_retry 3331 3333 
ioc$tape_ max data_transfer 2222 1076 
ioc$tape_max_lateack_retry 33293 1086 
ioc$tape_max_lost_data_retry 3327 1084 
ioc$tape_max_misc_retry 3330 1087 
ioc$tape_max_parity_retry 3333 1083 
ioc$tape_max_tape_parity_retry 3332 3334 
ioc$tape_max_tcu_parity_retry 3326 1082 
ioc$tape_pkt_1ing_ read 2387 2442 
ioc$unit_commun_buffer_ length 1693 1717 
ioc$unit_down_on_init 1038 11413 12787 
ioc$unrecovered_error 1036 14527 
ioc$unrecovered error_unit_down 1037 117390 12786 
ioc$write_ for server 1034 7818 11644 
ioc$write_ locked page 1031 11590 11644 
ioc$write_mass_storage 1031 11597 11953 
ioc$Swrite_ page 1028 7815 11644 
13634/P 14158/P 
ioc$write_ to client 1034 7819 11598 
ioid 11891 12046/P 
ioid 12185 12230/P 12259/P 
iotS$abnormal_ status 1508 1481 
iot$alert_ conditions 1145 1136 1480 
iot$bid_index 1301 2565 2567 
iot$Sbid_window 1302 2566 2568 
iot$cartridge tape _bid 1305 1187 2563 
iot$ccc_ cart _device status 1166 1060 
iot$ccc_cart_error_log 1226 1062 
iot$ccc_ cart _sense_bytes 1194 1061 
iot$command 1392 1138 1614 
iot$command_code 1399 1393 
iotScommand_length 1407 1395 
iot$S$communicat ion_buffer 1610 1626 
iotS$communication_buffer_length 1629 1579 
. got$detailed_ status 1490 1429 1498 
iot$filaags 1401 1394 
iot$id24 byte 2004 1995 
iotS$id26_ byte! 2015 1896 
-jot$id26 bytez2 2024 19397 
+ * REFERENCE ABBREVIATIONS Memodify, 
e 
REFERENCES OF mmm$monitor request _processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER-- +e rrr ree terete eee DEFINED-----------+*+-+---REFERENCES 
ON LINE 
iot$id26 bwbyte4 2033 1998 
iot$id2a_byte3 2040 1999 
iotS$interface_error_ code 1523 1482 
jotS$interrupt 1545 1134 1478 
dotSio_error 1036 3969 4516 
iot$S$io function 1028 1092 1115 
iot$io_id 1417 1073 1107 
iot$S$io_request 1422 1128 1240 
iot$ipi_major_status 1884 1858 
iotSipi_major status header 1876 1857 
iotSipi_tape_status 1847 1058 
iot$  lock_owner 1680 1677 
iot$ lockword 1674 1581 1705 
iet$logical unit 1540 1132 1476 
iot$mtc_sense_ bytes 2050 2000 
iotS$no_of_tape_units 2213 1118 2500 
iot$S$pageable tape_request_entry 3309 3306 
. iotS$pageable_tape_requests 3305 2501 
iot$S$physical_path 1640 1606 
iotS$port_ number 1550 1547 
iotSpp_number 1652 1566 1688 
iotSpp_response 1470 1050 1428 
jotSpriority 1549 1135 14793 
ietS$read_ block _ descriptor 2233 2230 
.iot$read_tape_description 22293 1068 1113 
“iot$request_length 1141 1080 1131 
iotS$request_ recovery 1543 1133 1477 
iot$response_ buffer 1630 1587 1637 
_ieotS$response_ buffer offset 1635 1883 15385 
iot$response_code 1825 1483 
iot$response_ length 1507 1475 
iot$response_processor 1428 1423 
ieot$short_response_flags 1463 1459 
iet$speciai_ipi_status 1863 1856 
iot$tape_ bid status response 2134 1053 1057 
iot$tape_ block count 2252 2229 2322 
iot$tape_collected_pp_response 1048 1083 1116 
iot$tape_command_heap 2260 1114 
iotS$tape_command_index 2439 1069 1070 
iot$tape_ complet ion_codes 2308 2329 
iot$tape_ device status 2137 1054 
iot$tape_extended_ status 2209 1055 
iot$tape_ format parameters 2572 1137 2558 
iot$tape_ hardware command 2440 2451 
iet$tape_io_status 2311 1091 
iot$tape_job_unit_descriptor 2494 1077 1119 
iot$tape_pp_request 1126 1096 1123 
iot$tape_request 1066 1117 2502 
iot$tape_ request_length 24482 2450 
iot$tape_ request types 2460 1075 4111 
iot$tape_ transfer count 2244 2234 
iot$transfer_count 1553 1071 1105 
iotS$unit commun _buffer_ length 1723 1703 


REFERENCES OF mmm$monitor_requ 


Sex 


est_processor NOS/VE CYBIL/II 


REFERENCE ABBREVIATIONS 


Memodify, 


1.0 89102 


113973 
11868 


11946 


12103 


11690 
11645 


11714 


11690 


1485 


1615 


1503 


Azattribute, 


7978 
11374 
7812 
2495 
1435 


1706 
1567 


7919 


1597 


3338 
3312 


1072 


3311 


2553 


1486 


Azattribute, 


11973 


11977 
11714 


11943 


11959 


S=subscript, 


11548 
8139 


1460 


1868 


7920 


1104 


3344 


S:subscript, 


1989-08-21 


11943 11984 
11977 12013 
I=1I/O ref, 


11768 
10155 


1472 


1604 


1106 


S274 


1988-0 


11890 
11369 


1583 


1687 


2449 


I=zI/O ref, 


13:33:34 PAGE 477 
12013 12039 
12039 13002/P 


R=read, Wewrite, 


P=parameter 


8-21 13:33:34 PAGE 478 
12184 
11879 12702 
1708 
8701 
12178 


Reread, Wewrite, 


Psparameter 


REFERENCES OF mmm$monitor_request_progessor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 478 
IDENTIFIER------+- ee eee eee S DEFINED: 2 oss wee ees eee ie REFERENCES 
ON LINE 

iotSunit _communicat ion_buffer 1717 1721 

iot$S$unit_descriptor_entry 1603 1601 

ietSunit descriptors 1601 1598 

iotSunit interface table 1696 1605 

iet$Sunit_status 1713 1698 

iot$S$unit_type 1780 1699 

ietS$unsolicited_response_code 1531 1484 

iot$wired tape request 1099 12174 

iotS$write block descriptor 3342 3339 

iot$Swrite tape _description 3338 1067 1112 

iotype 11369 11556 11556 11581 11590 11595 11600 11645 11690 
11690 1171714 11714 

iotype 11879 11825 11943 11943 11946 11982 11899 12013 12013 
12038 12038 12103 

iotype 12702 12730/P 

ipti 14469 14489 144390/S 

j 14126 14149 14150/S 

jcb_p 13743 13953/M 13954 13955/P 13956/P 13957/P 13962 13971/P 13972 
13872 13974/P 

jcb_p 14340 14408/M 144093/M 14409 

jf_asid 11892 12070/M 12113 

jf fde_p 14341 14404/P 14405/M 14406/M 14407/M 

jmc$detached_job_wait_t ime_max 4637 4634 

jmc$dp_conversion 869 13863 13877 

jmc$dsw_io_error_while_swapped 4041 11406 

jmc$dsw_job_shared_asid_changed 4039 12376 

jmc$examine_input_queue 916 13854/P 

jmc$examine_swapin_queue 917 13853/P 

jmc$highest_det_job_wait_time 4647 4637 4648 

jimcS$highest_prio_age_interval 4904 4895 4so5 

jmc$highest sched _memory level 10484 10477 

jmc$highest service_accumultator 4362 4363 

jmc$highest_service_factor_valu 4928 4921 

jmec$highest_service_interval 10500 10433 

imc$highest_working set_size 4673 4664 4674 4676 4678 4680 

jmc$ies entry free 4137 11717 

jmc$ies  job_in_memory 4140 13960 

imc$ies job_swapped 4142 4151 

jmc$ies swapin_in__progress 4141 4150 

jmc$inhibit_ memory _manager_io 4194 $815 13322 14003 14075 14144 

jmce$iss_executing 4156 13940 138960 

jmc$iss_ free swapped_memory 4174 11476 

jmc$iss_idile_tasks_ initiated 4187 4184 

jmc$iss_ initiate swapout_io 4168 12404 13565 

jmc$iss_job_idie tasks complete 4158 12479 13577 

jmc$iss_job_io_complete 4165 11520 11718 

imc$iss swapin_io_complete 4182 4185 

jmc$iss_ swapin_requested 4178 4185 

jmc$iss_swapout_ complete 4177 4184 

jmc$iss_swapout_io_complete 4172 12405 13566 

jmc$iss_ Sswapped_io_cannot_init 4168 4195 12460 12480 13578 

jmc$iss_swapped_io_ complete 4173 12461 12480 13579 

+ REFERENCE ABBREVIATIONS Memodify, Atattribute, S=subscript, I:1/0 ref, Reread, Wewrite, Psparameter 


REFERENCES OF mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 480 
IDENTIFIER-- ++ eer eee eee ees DEF INED---------- ~-***-REFERENCES 
ON LINE 

jmc$iss_Swapped_no_io 4159 4194 

jimc$iss_wait_job_io_complete 4164 11401 11444 

jimc$keyword offset maximum 4379 4665 4896 

jmc$k jl_maximum_entries 3871 3864 3865 4314 

jmc$kol_maximum_entries 3881 3866 

jmc$ilock_ajl 9518 9504/P $507 $9637 9638/P $640 $819/P 9819 9842/P 
9845 11488/P 11488 11494 11494/P 11494 11814 11814/P 
11814 13322/P 13322 13349 13349/P 13349 13941 13976 
139876/P 13876 14003/P 14003 14075/P 14075 14144/P 14144 
14152 14152/P 14152 14159 14159/P 14159 

jmc$max_active_jobs 3862 4877 4885 4886 

jmc$max_ajil_ord 3863 3856 3862 $521 

jmc$max_dispatching contro} 4101 4105 

imc$max_ dispatching priority 871 831 834 835 11048 

jmc$max_ijl_index_count 951 10554 

jmc$maximum_job_categories 10441 10438 10442 

jmc$maximum_job_classes 4232 4295 

jmc$maximum_job_count 3878 3871 

jmc$maximum_output_count 3888 3881 

jimc$maximum_service_classes 4395 4398 

jmc$min_dispatching contro! 4100 4104 

jmc$min_dispatching priority 872 11048 

jmc$needed_memory avai labie 919 9462/S 9464/Ss 11297/8 11287/S 11584/Ss 11584/S 13505/S 13505/S 

jmc$null_ajl_ordinal $521 $$03 9819 9841 11488 13322 14003 14675 14144 

jmc$null_service_ciass 4388 4389 

jimc$priority_aging_interval_max 4895 4892 

jimc$priority bias_maximum 10461 10457 10457 

imc$priority p1 885 832 5971 10400 13847 13862 

imc$priority p10 894 833 10400 

jmc$priority p14 898 833 5971 

jmc$priority ps 892 832 13847 13862 

imc$required offset 4377 4679 

imc$reserved_ajis 3867 3862 

jmc$scheduling memory _level_max 10477 10474 

jimc$service_accumulator_maximum 4354 4351 

jmc$service_ factor value_max 4s21 4918 

jimc$service_interval_maximum 10433 10490 

imc$system_default_offset 4378 4379 4681 

imc$system_supplied_name_size 4430 4427 

jmcS$unlimited_ offset 4375 4364 4638 4649 4675 43906 

jimc$unspecified_offset 4376 4677 

jmc$working set size maximum 4664 4661 

imp$assign_ajl_with_lock $525 9504 9819 9842 11488 13322 14003 14075 14144 

jmp$check scheduler_memory wait 9437 9468 11297 11584 13505 

imp$free_ajl_with_lock $649 9638 11494 11814 13349 13876 14152 14159 

imp$get_ijle_p 9471 9477 $814 11309 11388 11443 11558 11707 12008 
12035 12057 12253 12298 12389 12436 12515 12662 
13322 13564 13707 13803 14003 14075 14144 14377 

imp$ijil_block_valid $482 9487 12395 14001 14074 

imp$ijil block valid 9483 9485/M 12395/M 14001/M 14074/M 

imp$ lock _ajl 9432 9512 11488 

jimp$ lock _ajl_with_ lock $831 $819 9849 13322 14003 14075 14144 

jmp$set_scheduler event 9658 13853 13854 

EX REFERENCE ABBREVIATIONS Memodify, Atattribute, Szsubscript, I21/0 ref, R=read, W=write, Psparameter 


REFERENCES OF mmm$monitor_request_processor 


NOS/VE CYBIL/II 


1.0 89102 


IDENTIFIER: - e+e ce eee eee ee cee DEFINED----+-+2-2e222%2e¢58 REFERENCES 
ON LINE 
imp$set_scheduler_memory_ event 9458 9465 
imp$set_ scheduler _memory_ event 11284 11297 
jmp$set_scheduler_memory_event 11368 11584 
jimp$set_ scheduler _memory_event 13377 13505 
jmp$unlock_ajl $629 9644 11494 
jmtSactive_job_list 9619 9537 
gImt$active_job_list_entry 9611 9619 
jmt$ajl_ordinal 3856 3813 3905 
$834 $837 
jmtS$cpu_dispatching allocation 10385 10357 ; 
imt$delayed_ swapin_work 4042 3935 4046 
jimt$detached_ job _wait_time 4634 4619 
imt$dispatching_allocation 10388 10386 
imt$dispatching control 4071 4860 
jmt$dispatching control_ index 4104 4061 4071 
imt$dispatching controls 4074 4072 
jmt$dispatching_ interval 10396 10359 
‘jmt$dispatching priority 831 3805 3917 
10278 10323 
jmt$dispatching priority set 10334 10318 10319 
11100 13761 
jmt$dual_ state priority 10408 10404 
jmt$dual_ state priority control 10400 10360 
jmt$dual_state_ priority entry 10403 10401 
jmt$dual_state_subpriority 10409 10405 
jmtS$idie dispatch controls 10323 10320 
jmtSidie_ dispatching controls 10317 10312 
“ImtSidie dispatching entry 10325 10323 
jmtSidle_ dispatching queue _time 10415 10361 
jmt$i j1_block_index 947 943 10556 
_imt$ijl_block_nmumber 946 $42 10544 
‘jmt$ijl_dispatching control 4060 3918 
jmt$ijl_entry status 4137 3904 
jmt$ijl_ordinal 941 927 S76 
; 4508 4609 
S806 $833 
11888 12183 
jmt$iji_p 10542 10537 
imt$iji_page_fault_count 4211 4206 4207 
imt$ijl_page_ stats 4205 4201 
jmt$iji_service_class_stats 4199 3339 
‘jmtSijl_statistics 4244 3938 
jmt$ijl_swap_count 4220 4216 4217 
imt$iji_swap_counts 4215 3958 4202 
jimt$ijl_swap_status 4155 3907 3808 
“gjmtSinitiated_job_list_block 10553 10559 
jmtSinitiated job_list_entry 3901 3833 4470 
9630 $650 
10016 10030 
11887 12182 
13390 13699 
jmtS$initiated_job_list_p 10559 10543 
~jmtS$input_file_location 4334 4329 
xe t REFERENCE ABBREVIATIONS Mzmodify, 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 
IDENTIFIER: scree ert ee eee eee ~DEFINED------------- °- -REFERENCES 
ON LINE 
jmt$jil_job_leveler_state 8442 8437 
jmt$jil_job_leveter status 8436 8077 
jmt$ job_abort_ disposition 4343 4327 
jmt$ job_category 10438 10434 
jmt$ job category set 10434 10362 
imt$ job class 4295 3963 
jmt$ job control _biock 4590 3815 
jmt$ job_mode 4298 39320 
jmt$ job_priority 4303 3960 
jmt$ job_recovery_ disposition 4346 4328 
imt$ job_sched_event_selections 924 9442 
jmt$ job _scheduler_event $22 9447 
jmt$ job_scheduler_ events 962 922 
jmt$ job scheduler table 10345 103406 
‘jmt$ job_system_id 4653 4605 
jmt $k jl_ index 4314 3906 
imtSmainframe_categories 10445 10368 
jmt$mainframe_entry 10448 10445 
jmt$maximum_act ive_jobs 4877 4854 
imtSpriority aging interval 4832 4862 
jimt$priority bias 10457 10372 
jjmt$queue_file_ijl_information 4326 3945 
jimt$scheduling data 3951 3929 
jmt$scheduling memory_level 10474 10379 
dmt$scheduling memory levels 10378 10364 
‘jmt$scheduling_ priority 4868 4861 
imt$service_ accumulator 4351 3953 
imt$service class_index 4398 3964 
Ajmt$service_ class_name 4910 4847 
imt$service_factor_vailue 4918 4856 
imt$service_factors 4914 4856 
.imt$service_interval 10490 10351 
jmtSswap_data 3967 39331 
jimt$swapout reasons 4401 3959 
jmtSswapped_job_entry 4416 3976 
jmt$Ssystem_supplied_name 4427 32902 
jmt$task time_slice 4114 4034 
jmt$time slice_values 40933 4078 
jmt$user_dispatching_priority 832 10385 
“jmt$user_ supplied name 4657 4604 
jmtSworking set _size 4661 4615 
jimv$ajl_p 9597 9507/M 
9845 
11814 
13939 
14003/M 
14152 
jimv$idie dispatching controls 10312 13840 
13867/M 
a : 13884/M 
jimv$iji_p 10537 $475 
12009 
12515 


*** REFERENCE ABBREVIATIONS 


M=zmodify, 


1.0 89102 


10363 
9686 


3961 


924 


4653 


10380 


3954 
4845 
4848 


10353 


4471 
4603 
4oss 
4821 
11075 


4616 
3507 
11488/M 
13322/M 
13941/M 
14003 
14158 
13841 
13870/M 
13965 
9485 
12035 
12662 


11814 


8138 
10203 


11406 


4062 
10334 
11062 
13763 


10545 


3429 
7814 
10119 
12380 


4208 


3909 


4608 
9673 
10235 
12377 
13752 


Az=attribute, 


10451 
10029 


4869 


s658 


3955 
4855 


4628 
10843 


10867 
$637 
11488 
13322 
13941 
14075/M 
14159/M 
1384&2 
13873 


9814 
12087 
13322 


Atattribute, 


13349 


9495 
10241 


12376 


4063 
11145 
11063 
13763 


3832 
9471 
10249 
12546 


$321 
9679 
10556 
12386 
14122 


S=subscript, 


10452 
13743 


4870 


4852 


$640/M 
11494 
13349 
13943 
14075 
14158 
13846/M 
13875/M 


11308 
12253 
13564 


S=subscript, 


1989-08-21 13:33:34 

13976 14152 14159 
9498 9530 $633 9812 
10529 11467 13744 14330 
12376 
4064 4076 4808 4810 
11146 13753 
11064 11097 11098 11039 
13763 13842 13877 13882 
3924 3952 4445 4446 
$483 9494 9527 §613 
10844 11015 11137 11539 
13698 14342 
$369 9472 $493 9614 
9685 9809 9832 10007 
11307 11461 11540 11772 
12504 12510 12638 13282 
414214 14339 

I=1/0 ref, Rtread, Wewrite, Ptp 

1989-08-21 13:33:34 

14340 
4871 4872 
4853 
9640 8$819/M $819 $84as5/M 
11494/M 11484 11814 11814/M 
13349/M 13349 13837 13839 
13961 13876 13976/M 13876 
14144/M 14144 14152 14152/M 
14376 
13848/M 13849/M 13850/M 13863 
13876/M 13876 13882/M 13883/M 
11389 11443 11558 11707 
1223938 12395 12339 12436 
13707 13803 140061 14003 

I1:1/0 ref, Reread, Wewrite, 


PAGE 481 


arameter 


PAGE 482 


Pzparameter 


REFERENCES OF 
IDENTIFIER--- 


jmv$ job_sched 
jmv$ job_sched 
jmv$ job_sched 
jmv$ job_sched 
imv$ job_sched 
imv$ job_sched 
jmv$ job_sched 
jmv$ job_sched 
jmv$job_sched 
imv$long wait 
- jmv$max_aji_o 
imv$max_ class 
jmvSmemory_ne 
imv$memory_ne 
jmv$memory ne 
jmv$memory_ne 
imv$scan_idie 
imv$system_ij 


job fixed asi 


job _fixed_con 
job_is_good_s 
job monitor t 
job_page_queu 


jisc$isqi_swap 
jisc$isqi_swap 
jsp$adv_expir 
ispSinitiate_ 
isp$io_comple 
isp$recalcula 
jst$changed_a 
istS$ijl_swap_ 
jistS$iji_swap_ 
jist$io_contro 


ist$swap_file descriptor 


ist$swapped_b 
jistSswapped_p 
jstSswapped_p 
isv$pages nee 
jisv$swapped_p 
jws_ijl_ordin 


last_cp_time 
last_executio 
last_pfti_ind 


REFERENCES OF 
IDENTIFIER-- - 


last_segment_ 
last written_ 
last_written_ 
last _written_ 
last _written_ 
length 


length 
length 
length 
length 
Jength 
length 
Tength 
length 


list_length 
list _p 
list op 
list_p 
list _p 


list _p 
locate _a_ modi 
locate highes 
Tock 

lock 

lock 

lock 

lock 

Tock 

lock 

lock 

lock 

lock 

lock 

Tock 


mmm$monitor request processor 


FS CE Cn er ee DEFINED 

ON LINE 
events selected $442 
events selected 11284 
events selected 11368 
events selected 13377 
uler_event $447 
uler event 11284 
uler_ event 11368 
uler_ event 13377 
uler_ table 10340 
_swap_threshold $$20 
rdinal_in_use 10528 
_working set 10567 


eded_ by, scheduler $483 
eded_ by scheduler 11284 
eded_by scheduler 11368 
eded_ by scheduler 13377 


_dispatch_interval 10506 


1_ordinal 11015 
d 3914 
tiguous_ pages 3940 
wap_candidate 9615 
askid 3919 
e_list 3930 
ped_io_ completed 4450 
ped 10 _not_init 4a4aag 
ed_swapped_ jobs 9663 
Swapout_io 9669 


te $673 


te_ swapped pages 9678 
sid_entry 4433 
queue_id 4449 
queue_ Tink 4443 
1T_information 4457 

&469 
ut still_in_memory 4452 
age_descriptor 4478 
age _ descriptors 4475 
ded_for_sfd 10574 
age_entry_size 10578 
al 12380 

10329 
m_ time 4611 
ex 3374 


**X REFERENCE ABBREVIATIONS 


mmm$monitor request processor 


were eee eee ne eee DEFINED 
ON LINE 


number 419 
pfti 12708 
pft i 12836 
pfti 12866 
pft i 13395 

ss6é 


1395 
7762 
11878 
12186 
12578 
12630 
12699 
12895 
$292 
$293 
4505 


4562 


11542 
11894 


12187 


14515 
11371 
11881 
14509 

1103 
11370 
11880 
12188 


14508 
13165 
13478 
$368 
84093 
$432 
9492 
8536 
9572 
$629 
$629 
$805 
9805 
$807 
11460 


fied_page 
t_offset 


*** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


1.0 89102 


REFERENCES 
13356 14419 
14405/M 
12719/M 12732/M 
12847 12848/S 
13003/P 13004/P 
13636/P 13637/P 
11567 12007/M 
14521 
12308/M 12317/M 
13002/P 13007/P 
11917 12007 
12216/M 12219/M 
12598/P 
12643/P 
12722/P 
12906/P 
§295/M $3300/M 
8296/M 8300/M 
11287/M 11291/M 
13505/M 14142 
11287 11288 
11584/S 11584/M 
13505/M 13505/5S 
11566 11567/S 
11907/M 11932/8S 
12027/M 12027 
12131/M 12131 
12213/M 12282 
12305/S 12308 
14520 14521/S 
118555 11566 
11918 11918 
14520 
12338/M 
11567 11570 
12004/M 12007/M 
12203/M 12230/P 
12335/M 12338 
14521 14524 
13165 13180 
13478 13484 
9377 
9422 
9501 9501 
9510 9510 
95393 9542 
9580 9582 
9635 $635 
9642 9642 
9818 $818 
$8206 8820 
9817 
11488 11488 

M=zmodify, 


1.0 893102 
REFERENCES 

14074 14075 14144 
9462 
11297 
11584 
13505 
9464 
11297 
11584 
13505 
13817 13820 13873 
$906 9908/P 138397 
13937 
13800 13810 13811 
8463 
11297 
11584 
13505 
13833 
11309/P 12435 12436/P 
13803/P 
9504/P $819/P $842/P 
14144/P 14410/M 
12671/M 
13961 
11719/P 
11310 11310 11311 
13803 13803 13955/P 
4452 13908/P 
4452 13807/P 
13907 13908 
$908 13897 
11749 
12481 13580 
4484 
44844 
3913 
3932 
3933 
9663 
4476 11902 
4472 
1339300 13930 
13815 
12394/M 12395/P 12399/P 
13840 13850/M 13864 
13962 
S764 9777 93778 
10107/S 10108/M 10108 
12465 12465 12465 
12563 12612 12612 
12651 12651 12658 
12801 12801 12801 

Memodify, Atattribute, 


144195 


12750 
12851/S 


12017/M 


13009/P 


12223/M 


9301/M 
83301/M 
11584/M 


11283/M 
12065 
13505/M 
11570/S 
119838 
12034 


12254 
12317 
14524/S 
11737 
12010 


12017/M 
12259/P 


13182 


9501/M 
9510/M 
$543/M 
§584/M 
9635/M 
$642/M 
9818/M 
$820/M 


11488/M 


Azattribute, 


14377 


13897/P 


12455 


11488/P 


12065 
13957/P 


13867/M 


9782 
12442/M 
12476 
12612 
12658 
12934 


Stsubscript, 


14419 
12751/M 
12862/S 


12024/M 


12237 


9304/P 
9302/M 
11584/M 


11291/S 
12082 
14135 
116900 
12004/S 
12036 


12255 
11742 
12014 
12024/M 


12283/M 


9501/M 


11488/M 


S=subscript, 


1989-08-21 13:33:34 
12475 12515/P 12530 13608 
12070 13322/P 14003/P 14075/P 
12081 12517 12664 13803 
14446/P 
13883/M 
10050 10051 10056 10068/M 
12447/S8 12447/™M 12447 12463 
12476 12476 12563 12563 
12648 12648 12648 12651 
12658 12778 12778 12778 
12934 12934 13356 13356 
I:I/O ref, Rtread, Wewrite, Pzp 


1989-08-21 


12795/M 12810 

12865/5 

12122/M 12291/M 

12296 

9302 9304/P 

12125 125206 

112933/M 11584 

12517 12664 

12007/S 12016 

12040 12046/P 

12294/M 12294 

12016 12058 

12046/P 12121/M 

12291/M 12296/M 

9501 

9510/M 

$545/M 

$586 

9635 

9642/M 

9818 

9820/M 

11488 11494 
IzI/0 ref, 


13:33:34 
12236/M 12335/M 
12668 13505/M 
11884 11584/M 
13505 13505 
12017/S8S 12024/S 
12121/S 12122/8S 
12299 12300 
12122/M 
12305/P 12312 
11494 11494/M 


tread, Wewrite, Psp 


PAGE 483 


arameter 


& 


PAGE 484 


arameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 485 
IDENTIFIER------+c---- Sis Sie Suesm ies DEFINED----- cere ne eeeee REFERENCES 
- ON LINE 
11494/M 11494 
lock 11460 11488 11488 11488/M 11488 11488/M 11494 11494 11494/M 
171494 11494/M 
Tock 11765 11814 11814 11814/M 11814/M 11814 
Tock 11765 11814 11814 11814/M 11814 11814/M 
lock 13065 13139 
lock 13272 13308 
lock 13272 13322 
lock 13272 13322 13322 13322/M 13322/M 13322 13349 13349 13349/M 
13349/M 13349 
lock 13272 13322 13322 13322/M 13322 13322/M 13349 133493 13349/M 
13349 13343/M 
lock 13377 13421 13439 13450 13470 13490 13552 135398 13605 
lock 13688 13715 
Tock 13737 13938 13938 13938/M 13938/M 139838 13976 13976 13976/M 
139376/M 13976 14003 14003 14003/M 14003/M 14003 14075 
14075 14075/M 14075/M 14075 
‘lock 13737 13942 13942 13942/M 13942 13942/M 13976 13976 138376/M 
13976 13376/M 13978 13978 13978/M 13978 13978/M 14003 
14003 14003/M 14003 14003/M 14075 14075 14075/M 14075 
14075/M 
Tock 13737 14003 14075 
lock 13737 14049 
lock 14111 14144 
lock 14111 14144 14144 14144/M 14144/M 14144 14152 14152 14152/M 
14152/M 14152 14153 14159 14159/M 14159/M 14159 
lock 14111 14144 14144 14144/M 14144 14144/M 14152 14152 14152/M 
14152 14152/M 14159 14159 14159/M 14159 14159/™M 
lock 14111 14157 
lock 14277 14307 
lock 143293 14371 14404 
lock_encountered 13065 13170/M 13170/M 
lock, encountered 13075 13094/M 13103/M 
lock_encountered 13126 13163/M 13170/P 13172 13187 13194 13242 13257 
lock _ loop 12211 12211 12313 12319 
locked 586 $9377 $422 13139 13308 13421 13439 13450 13470 
13490 13552 135398 13605 13715 1404S 14157 14307 
14371 14804 
locked $563 $501 3582 $635 9818 11488 11494 11814 13322 
13349 139838 13976 14003 14075 14144 14152 14159 
locked for_write 549 13101 131706 
. locked, page 4511 11503 11613/M 11626/M 11636/M 11649/M 113960 118970/M 11874/M 
11976/M 11985/M 12555 12561/M 12609 12770 12776/M 13091 
13092 13093 13102 13170 13170 13170 13170 13327 
13331 
loop_count 12189 12204/M 12206/M 12209 
loop_count_ index 12190 12209 12215 12274 12287 12307 
Tp 11323 119823 11928 11862 12028 
m 3397 11422/M 11441 11525/M 11603 11606/M 11617 11621/M 11674 
11693 11943 11978/M 11992/M 12727 12767 12783 12911/M 
12926/M 13083 13170 13239/M 13255/M 13327 13331 14143 
‘max dm_rejects 14115 14124 14165 
* REFERENCE ABBREVIATIONS Msmodify, Azattribute, Stsubscript, =1/O ref, R=read, W-ewrite, Ptparameter 
REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 486 
IDENTIFIER-------+-- wee Sree s ses DEF INE Ds s.22 es a ele Sele REFERENCES 
ON LINE 
max input count 1105 12216 
max segnum 14218 14240/M 14242/M 14252 
maximum segment length 13693 13716/M 
maximums exceeded 10319 13842 13882/M 
maxws_ aio_slowdown_disp lay 3943 13944 13945/M 13945 
maxws left for _ user jobs 13758 13805/M 13808/M 13808 13810 13813 13822 
mceount 12584 12615/P 
mcount 13284 133339/P 
mceount 13755 13912/P 13915/P 13925/P 13956/P 13958/P 
media 423 12999 14495 14498/M 
memory _ keypoints 7784 12115 
mf_job_fitle 11373 11714 
mf job file 11895 12041/M 12043/M 12046/P 
min working set _size 4616 13956/P 
minimum 4568 13915/P 
minimums to _ satisfy 11062 13859 
mmc $ 7309 7315 7318 7321 7324 7327 7330 7333 7337 
7340 7343 7346 7349 7352 7355 7359 7362 
7365 7368 7371 7374 7378 7381 7384 7387 
7390 7393 7396 7399 7402 7405 7408 7411 
7414 T4417 7420 7423 7426 74293 7432 7435 
7438 7442 7445 7448 7451 7454 7457 7460 
7463 7466 7469 7472 7475 7478 7481 7484 
7487 7490 7493 7496 7T4&39 7502 7506 7510 
7513 7517 7520 7523 7526 7529 7532 7535 
7538 7541 7544 7847 7550 7553 7556 7559 
7562 7565 7568 7571 7574 7578 7582 7585 
7588 7591 7594 7597 7600 7603 7606 7609 
7612 7615 7618 7621 7624 7627 7630 7633 
7636 7640 7643 7646 
mmcSassign_active null 5036 5037 
mmc$bd_explicit_io $381 $73 11914 
“mmc$bd_ job _swapping_io $890 $75 12051 
mmc$bd_paging_io 880 973 11814 
mmc$cell_pointer 5135 5140 
-mmcSfirst_loader_predefined_seg 10098 10081 10100 
mmc$heap_pointer 5136 5144 
mmc$iocb_table_size 9145 9138 
mmc$iorc_ await_io_ completion 8588 8581 
“mmc$iorc_ write pages 8588 8579 
mmcS$irs active 8558 8552 
mmcS$irs complete 8558 8553 
_mme$irs none 8558 8552 
mmc$kw_asid 5061 5037 
mmc$kw_clear_space 5059 5084 
mmc$kw_current_segment_length 5058 5078 
“mmc$kw_error exit procedure 5060 5088 
mmc$kw_g1_key 5060 5082 
mmc$kw_hardware_ attributes 5062 5091 
mmeSkw_ inher itance S062 So39 
mmc$kw_max_segment_ length 5059 5080 
mmc$kw_preset_value 5061 5086 
5063 5107 


.mmc$kw ops _ transfer size 


*** REFERENCE ABBREVIATIONS 


: Memedify, 


Azattribute, 


S:subscript, 


I:I1/0 ref, 


Reread, W:ewrite, 


P=parameter 


REFERENCES OF 


* eX 


REFERENCES OF 


mmm$monitor request _processor 


IDENTIFIER+ +r ret ee eer tee eee DEFINED~---~-- 
ON LINE 
mmc$kw_ring numbers 5057 
mmc$kw_ segment _access control 5061 
mmc$kw_ segment _number 5058 
mmc$kw_shadow_segment S063 
mmc$Skw software attributes 5060 
mmc$kw_wired segment 5063 
mmc$ip_aging lock 4527 
mmc$lp_not_ locked 4527 
mmc$ ip _page_in_lock 4528 
mmc$ ip server allocate lock 4529 
mmc$ip_write_ protected lock 4528 
mmc$max_rma_list_ length $86 
mmc$mf_ segment_mgr_flag 3762 
mmc$mmu_aging algorithm $218 
mmc$mmu_jws_age_interval $219 
mmc$mmu_ periodic _caill_interval $226 
mmc$mmu_shared_age_interval $227 
mmc$mpt_done 3770 
mmc$mpt_page_table_full 3770 
mmc$num_loader predefined segs 10089 
mmc$pq_avail 34793 
mmc$pq_avail_ modified 3480 
mmc$pq_first_valid_in_pt 3524 
mmc$pq_free 3478 
mmc$pq_job_fixed 3519 
mmc$pq_job_io_error 3520 
mmc$pq_job_working_set 3521 
' mmc$pq_last_reassignable 3525 
mme$pq_shared_file_server 3487 
mmc$pq_ shared first 3527 
mmc$pq_ shared _first_site 3529 
mmc$pq_shared_io_error 3516 
mmc$pq_shared_last 3534 
mmc$pq_ shared last_sys 3528 
mmc$pq_shared_num_sites 3530 
mmc$pq_ shared other 3488 
mmc$pq_shared pf_non_execute 3485 
mmc$pq_ shared site_01 34390 
mmc$pq_ shared site _25 3514 
mmc$pq_ shared _task_service 3483 
mmc$pq_ swapped_io_error 3517 
mmc$pq_wired 3481 
mmc$sa_stack $123 
mmc$sac_fite_ server terminated 5590 
mmc$sac_io_read_error 5587 
mmc$sat_read_or_write 10150 


REFERENCE ABBREVIATIONS 


mmm$Smonit or_or equest_ pr ecessor 


IDENTIFIER: c- +c eee eee ee ee ee = - DEFINED 

ON LINE 
mmc$sat_write 10150 
mmc$segment fault _processor_id 5568 
mmc$sequence_ pointer 5135 
mmc$server_iocbh table_size 8449 
mmc$si_new_segment 5044 
mmc$sri_ change swap_file queue 7690 
mmc$sri_ commit memory 7682 
mmc$sri_delete_job_seg_ by sfid 76392 
mmc$sriodelete_seg segnum 76793 
mmc$sri delete _seg_ sfid 7680 
mmc$sri1_detach_file 7683 
mmc$sri_end_job_recovery 7687 
mmc$sri_ flush _avail_modified 7694 
mmc$sri_filush_delete_seg sfid 7684 
mmc$sri_flush_seg segnum 7685 
mmc$sri_free_image_pages 7681 
mmc$sri_get_highest offset 7691 
mmc$sri_make_ mfw_cache 7688 
mmc$sr1_remove_detached_pages 7693 
mmc$sri_remeve_job shared pages 7689 
mmc$sri_replace_sfid 7686 
mmc$sr_assign_file_to_disk 3716 
mmc$sr_ complete seg sft_entry 3718 
mmc$sr_fetch cyclic _aging_ int 3721 
mmc$sr_fetch max_ws size 3717 
mmc$sr_fetch min_ws_size 3719 
mmc$sr_fetch page_aging_int 3720 
mmc$sr_ store cyclic_aging int 3721 
mmc$sr_store_ max _ws size 3717 
mmc$sr_store min_ws_size 3719 
mmc$sr_store_page_aging_int 3720 
mmc$ssk_none 5230 
mmc$ssk_segment_number 5231 
mmc$ssri_f lush delete seg sfid 7738 
mmc$ssri_free delete seg sfid 7738 
mmc$ssri_move_modified_df_page 7739 
mmc$uer_ set_exact_eoi 3745 
mmc$wmp_io_active 3406 
mmc$wmp_io complete 3406 
mmc$wmp_io_errors 3407 
mmc$wmp_io_initiation_reject 3406 
mmc$wmp_server_terminated 3407 
mmc$wmp_volume_unavai labile 3407 
mme$ invalid request 7442 
mme$io_active_on_move_page 7606 
mme$io_write error 7445 
mme$no_pages_found_for_move 7408 
mmeSpage_frame_not_assigned 7337 
mme$page_table_ full 7318 
mme$segment_not_assigned_device 7423 
mme$segment_not_pageabie 7448 
mme$votlume_ unavailable 7578 
mmk$build lteck rmal 6945 


*** 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


1.0 898102 


5073 

5095 

5076 

5101 

50393 

5104 
13091 13170 
11613 11626 
13331 
11503 11960 
11976 13092 
11985 13102 

391 $932 
11796/P 
11187 
11177 
11181 
11179 
13236 
13227 
10100 

3525 11452/P 
11403 11445 
12615/P 12910 
11590 11615 
13332 

3537 11450/P 
12557/P 12656/P 
13561 13571/P 
3526 3538 
12661 12664/S 
11311/S 11402/P 
3538 3539 
12396 13803/S 
11998 
12424 
10619 11689 
3533 
11386/P 11420/P 
11688 12393 
10619 11180 
3533 

3528 12432 
13609 

3528 

3534 

3527 

3537 11400 
3524 13250/P 
13711 
11802 
11783 
12990/P 

Mzmodify, 


NOS/VE CYBIL/II 


wee ere- “REFERENCES 


12988/P 


7730 
13718/P 
12807 
12718 
12739 
12745 
12743 
12741 
13011/P 
13192/P 
12874/P 


-13142/P 


12048/P 
13241/P 
13000/P 
12998/P 
12871/P 
11934 


M=modi fy, 


1.0 89102 


13149/P 
11781 


14299 
13604 


13449 
13488 
13438 
13420 
13556 
13459 
13438 
13488 


13468 
13589 


13597 
13515 


13292 
13292 
13296 


12812 
12806 
12788 
12811 
12876 
12790 
13615/P 


13185/P 
12265/P 


11636 


11970 
13170 
13170 

1081 


11679/P 
11522 
13912/P 
11628 


11505/P 
12772/P 
14182 

11310/S 
13803/S 
11521/P 
11311/8 
13955/S8 


12521 
12785 


12522 
13919 


11404/P 
13805/S 


Azattribute, 


13620 


13632 
13621 


13333 


12860 
12858 
12873 
12846 


12810 


Azsattribute, 


116498 


11874 


11900 


11699/P 
11603 
13915/P 
11638 


115793 
13176/P 


12064 
14402 
12784 
11382 


12996 


12923 
12397 


11517 
14416/P 


Szsubscript, 


13632 


13633 


13345 


13639 
136393 


12870 


S:ssubscript, 


1989-08-21 13:33:34 
12561 12609 12776 13327 
12555 12770 13093 13170 
1101 11538 
11955 11964 12918/P 
11673 11979 11986 12448 
1392S5/P 13956/P 138S8/P 14135/S 
11646 11946 12554 12766 
11677/P 11697/P 11825/P 11994/P 
13214/P 13330/P 13343/P 13503 
12065/S 12074 12076 12085 
14418/P 
128323 13803/85 13957/S 
12446 12517/S8 12594 12768 
13807 13909 
13806/S 13924/S 13924/S 
13425 
11823/P 
I:1/O ref, Reread, Wewrite, 
1989-08-21 13:33:34 
13635/P 
13351 
13640 
T=I/O ref, Reread, Wewrite, 


PAGE 487 


Pzparameter 


PAGE 488 


° 


P=parameter 


REFERENCES OF mmm$monitor_request_processor 


IDENTIFIER------*---++- ee 


mmk$create_ job 
mmk$create_task 
mmk$exit_ job 
‘mmk$exit task 
mmk$free_ flush 
mmk$monitor_ base 


mmk$mtr lock ring 1_stack 
mmk$per iodic_call 

mmk$r ing! segment_request 
mmk$unlock_rmal 
mmp$age_job_working_ set 
_mmp$asid 


mmp$aste pointer 

mmp$aste_ pointer _from_pft i 
‘mmp$build lock rma_list 
mnap$build lock rma_list_ta 
mmp$change_asid 
mmp$check_queues 
mmp$convert pva 
mmp$create_job 
mmp$create_task 


‘mmp$delete_last_pfti_from_array 9738 


mmp$delete pt_entry 


“mmp$determine_error_state 


mmp$determine shared _queue_id 


mmp$exit_ job 

mmp$exit task 
mmp$fetch_pfti_array_size 
mmp$fetch stack _segment_in 
mmp$ find next _ pFfti 


mmp$free_asid 
mmp$free_ flush 
mmp$free_image_pages_ mtr 


mmp$ free _memory_in_job_queues 


mmp$get_inhibit_io_status 
mmp$get_max_sdt_pointer 

_ mmp$get_max_sdt_sdtx_point 
mmp$get_sdt_entry_p 
mmp$get_sdt_entry p 
mmp$get_sdtx_entry_p 

-mmp$get_sdtx_entry p 
mmp$get verify _asti_in_fde 


~mmp$Sinitialize find _next_p 

nme. (nkc page: frame to. gia 
ump$make_pt_entry 

~mmpSmm_ conditional_ free 


REFERENCES OF mmm$monitor_request_processor 


IDENTIFIER-------- were eee e eee 


mmp$mm_free_ pages 


mmp$maintain_memory thresholds 


NOS/VE CYBIL/II 
~°°-DEFINED-----+---e-- eee “REFERENCES 
ON LINE 
6920 14354 
6317 14228 
6926 14445 
6923 14291 
6847 12982 
7000 6840 
63923 
6948 
6329 14476 
6941 13782 
6854 13408 
6948 11571 
9685 13971 
9691 12428 
14043 
9697 11195 
11191 11203 
11876 12141 
pe 12173 12341 
$708 13361 
9716 11758 
$727 12993 
14329 14422 
14211 14264 
$742 
9745 11449 
13175 
14507 14534 
$753 12430 
14437 14448 
14277 14315 
9760 S766 
fo 13688 13726 
$769 $787 
12934 
$790 12675 
12959 13017 
14179 13512 
$796 14446 
$805 98284 
9856 9864 
er $868 9878 
$945 12426 
9947 9949/M 
$932 11794 
9834 9936/M 
10116 10130 
13491 
ft i 9881 128551 
ue 11284 112983 
9891 $915 
$923 13226 
12894 12941 


* eK 


mmp$mm_ write modified pages 


mmp$move_modified_server_page 


mmp$mtr_ lock ring _1_stack 


‘mmp$mtr_ori_server_seg request 
mmp$mtr_ ring! segment request 


mmp$periodic_call 
mmp$process_page_table_ful 


mmpSprocess volume _unavai lable 


mmp$process wmp_status 
mmp$purge_all_cache 
mmp$purge_all_cache_map 
mmp$purge_all_cache_map_pr 
mmpS$purge_alil_cache_ proc 
mup$purge_ali_map_proc 
mnp$purge_all_page_map 
mmp$reclaim_ast_entries 
‘mmp$relink_page_ frame 


mmp$remove_detached_pages 


mmpSremove_jws_to_shared_pages 


“mmp$remove_page_from_job 
mmp$remove_page_from_jws 
mmp$remove_pages_from_jws 
amp$remove_ pages _ working_s 
mmp$remove_ stale pages 


7 


oc 


et 


REFERENCE ABBREVIATIONS 


mmpS$remove_swapped_ shared pages 12503 


mmp$replenish_free_queues 
“mmp$reset_find_next_pft i 
mmp$reset store pfti 


mmp$set_inciude_pages_in_dump 


mmp$store_pft i 
mmp$sva_purge_all_page_map 
mmp$sva_purge_one_page_map 
mmp$unlock rma_list 
‘mmp$unlock rma_list_error 
mmp$update_eoi 
mmp$verify pva 
Jimp$write page to disk 
mmp$xcheck_queues 
mmp$xtask_pva_to_sva 
mmt$active_io_ count 
‘mmt$active segment _table 


immt$act ive _segment_table_entry 


mmt$aging statistics 
mmt$asid_list_ptf_index 


xe * 


NOS/VE CYBIL/II 
DEFINED---cr-e-e----- ---REFERENCES 
ON LINE 

12628 12678 
12697 12816 
13065 13263 
14460 14503 
13272 13366 
13377 13654 
13737 14093 
3980 14009 
$988 11791 
12835 12881 
11205 11601 
11223 12650 
11238 11229 
11218 11211 
11255 11248 
13186 

11242 12020 
$993 13993 
10000 11386 
11823 

11987 

12924 

14416 

12543 12566 
12367 12490 
10023 12559 
10006 133393 
10014 12615 
12576 12617 
10027 13911 
12535 

14111 13464 
100393 10062 
10065 12442 
10074 10093 
10104 12447 
11289 12838 
11271 11447 
11368 11760 
11765 11623 
10135 13718 
10142 12988 
10152 12730 
954 93720 
10167 12226 
8587 8466 
3441 10632 
3426 3415 
988s 

12631 

13385 

10605 10599 
3418 3413 


REFERENCE ABBREVIATIONS 


1.0 88102 


13016 
6847 
69256 
6951 


14090 
13652 


13874 
13146 


14044 
12139 
13154 


12610 
11504 
13205 


12463 


12476 
13356 
13362 


14197 
13322 
13708 


12426/M 
13489 
11794/M 
13140 
13606 
12598 
11584 
13897 
13235 
13008 


Mzmodify, Azatt 


: Memodify, 


1.0 89102 


13007 
13002 
13297 


14080 


13004 


12650 
11601 
11262 
13193 


11402 
11677 
11994 
13176 
14418 


13600 
12774 


13914 


13987 
12465 


13326 
11692 
12046 
11633 


12990 
14158 
11758 


8576 


3442 
3925 
12701 
13742 


6854 
639329 
6958 


13314 


14488 


11676 
13213 


12563 
14419 
13573 


14002 


14230 


13489 /M 
13309 


12643 
13505 


ribute, 


13647 
13634 


13637 


13206 
13188 
11274 
13326 


11404 
11673 
12468 
13214 


13924 


14175 
12651 


12230 
11642 


13149 
12139 
12706 
4481 
93883 


12896 
13750 


Azattribute, 


6879 
6932 
6962 


13432 


11696 
13329 


12612 


14045 


14075 


14231 


13422 


12722 


S=subscript, 


14309 


13195 
11447 


11420 
11697 
12523 
13250 


13955 


122593 
11827 


12972 


°4515 
10650 
12968 
14286 


Szsubscript, 


1989-90 
63800 6914 
6935 6938 
6965 6371 
13442 13455 
11824 12556 
13342 13570 
12648 12658 
14144 
14293 14357 
13440 13451 
12906 13318 

I=1/O ref, 


1989-90 
13243 132588 
11692 12020 
11450 11452 
11699 11825 
12857 12656 
13252 13330 
13957 
13382 
s6s8 3708 
11182 12374 
13114 13117 
14336 14465 

I=I/O ref, 


8-21 


6917 
6941 


13463 


12655 
14191 


12778 


14358 


13461 


14412 


13:33:34 PAGE 489 


6920 
6945 


13493 


12771 


12801 


13471 


Rz=read, Wewrite, Pz=parameter 


8-21 


12938 


11505 
11956 
12772 
13343 


$731 
12545 
13131 


13:33:34 PAGE 490 


13169 


11521 
119365 
12918 
13571 


$791 
12579 
13279 


Reread, W=write, Psparameter 


REFERENCES OF mmm$monitor_request processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 4971 


° 


IDENTIFIER< +++ creer ere er eee ee “DEFINED---e-- sees e eee -REFERENCES 
ON LINE 

mmt$ast_ index 565 410 39375 4496 43947 7706 9691 $703 $711 
$382 9994 10120 13115 13280 13386 13749 13776 

mmtSasync_work_list 10646 10640 

mmt$attribute_ keyword 5057 5072 

mmt$buffer descriptor $70 11877 

mmt$buffer descriptor _type 980 972 

mmt$eoi_state 574 412 

mmt$global_page_ queue_index 3537 4575 11180 11180 

mmt$global_page_ queue list 4575 10726 

mmt$global_page_ queve_list_ent 4565 4575 

mmt$Shardware_ attribute set 5126 5092 

mmt$hardware_ attributes 5114 5126 

mmt$image_file 9177 11186 11186 

mmt$io_identifier 7810 8137 10156 11372 11891 12185 12705 12971 133833 
14123 

mmt$io_ request status 8558 8551 

mmtS$io_ status 8550 &560 8573 

mmt$iocb_index 9138 7817 7823 

mmt$ job_page_queue_ index 3538 4418 4576 12084 

mmt$ job _page_queue_ list 4576 39330 $796 

mmt $ Tink 3464 3427 4505 4506 4562 

mmt$ lock segment_status 5210 5001 

mmt$ locked_page 4527 4511 

mmt$mainframe_wired_asid §150 9162 

mmt$make_ pt _entry status 3770 9927 13128 

mmt $max_sdt 4357 4961 

mmt $max_sdt_p 4961 $858 $870 13701 14219 14222 14282 14344 14347 

mmt $max_sdtx 5025 50293 

mmt $max_sdtx_p 5029 9871 13702 14220 14224 14284 14345 14348 

mmt$memory reserve _ request 4543 3323 

mmt$monitor_segment_request 3716 3726 

mmt$otd modified bits 9171 9161 

mmt $page_age 4534 4514 4538 4538 

mmt $page_ frame_index 3378 3375 3466 3466 4458 4460 4461 4462 4545 
4546 9453 S669 9680 S746 8770 9774 9886 
$324 10000 10006 10023 10040 10044 10104 10154 
10820 10822 10824 11184 11184 11191 11284 11304 
141473 11546 11766 11800 12194 12381 12382 12507 
12508 12549 12585 12637 12639 12708 12714 12836 
12900 12966 13072 13119 13129 13285 13395 13399 
13751 137588 13766 13767 13777 14120 14121 14188 
14346 14514 

mmt$page_ frame_queue_id 35398 3435 4459 4509 9755 10001 10015 10031 12384 
13765 

mmt$page_frame_tabie 4520 9160 10708 

mmt$page_frame_table_entry 4504 4479 4520 $926 11285 11462 11472 11544 11767 
11899 12183 12383 12509 12899 13078 13118 14513 

mmt$page queue _list_ entry 4561 4566 4576 10027 

mmt$page_ selection_criteria 3366 9884 

mmt$pfti_array 3371 10717 

mmt$pt_full_status 963 $984 13753 

mmt$rb free flush 7758 12960 

mmt$rb lock ring _1_ stack 3535 14461 


*** REFERENCE ABBREVIATIONS : M=modify, Azattribute, S=subscript, ItI1/0 ref, Reread, Wewrite, P:parameter 


REFERENCES OF mmm$monitor_ request processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 492 


IDENTIFIER------+----+-- Sie SS is es DEFINED-~-------+--°-+*-+--REFERENCES 
ON LINE 

mmt$rb ring1_segment_request 7673 12370 13378 

mmt$rb oringl server seg request 7724 13066 13273 

mmt$rb_ set_get_segment_length 9969 9958 

mmt$reassignable_page_frames 10753 10750 

mmt$rma_list $89 1103 11370 11880 12188 14508 

mmt$rma_list entry 994 989 2262 8168 8183 

mmt$rma_1ist_ index 991 389 11542 11894 12187 12199 14515 

mmt$Srma_ list length 992 971 11371 11881 14509 

mmt$sdtx stream _data 5008 5004 

mmt$segment access condition 5595 5623 11774 

mmtS$segment access rights 5174 5000 

mmt$segment access state 5180 4995 

mmt$segment_access type 10150 10143 

mmt $segment_descr iptor 4944 4954 4958 $732 3755 9947 10077 10812 10522 
12385 12967 13121 13400 14221 14471 

mmtS$segment_descriptor_extended 49983 5022 5026 $733 9334 $937 11776 11794 12968 
13122 13401 13489 14472 

mmt$segment_ descriptor table 4953 10290 

mmt$segment _descriptor_table_ex 5021 10296 

mmt$segment_inheritance 5043 4997 5100 

mmt$segment_pointer_kind 5135 5139 

mmt$segment_reservation_state 5220 4398 

mmt$server_ioch_entry 8456 8145 8453 

mmt$server_ segment request 7738 7727 

mmt$server state 8594 8458 

mmt$set_get_subfunct ion_codes $976 $973 

mmt$shadow_info 5195 5002 

mmt $shadow_reference_info 5243 4834 

mmt $shadow_segment_kind 5230 5199 

mmt$software attribute set 5128 4999 5094 

mmt$software_ attributes 5122 5128 

mmt$sub_ reqcodes 8588 8463 8578 

mmt$update_eoi_reason 3745 10138 

mmtSwrite modified pages status 3406 12709 12835 12965 13403 

mmt$write page_to disk status 10162 10158 12713 14119 

mmt$xcb_ page wait _info 5254 4820 

mmv$aggressive_aging_level 10583 13816 13900 13930 14032 

mmv$aging algorithm 11187 13947 

mmvS$aging statistics 105839 13902/M 13902 13917/M 13917 13920/M 13921 139832/M 13932 
13973/M 13973 14033/M 149033 

mmv$ast_p 10632 10124 10124 10125 12389 13140 13140 13140 13157 
13309 13309 13309 13317 13422 13422 13422 13424 
13440 13440 13440 13444 13451 13451 13451 13452 
13457 13461 13461 13461 13471 13471 13471 13475 
13491 13491 13491 13495 13523 13524 13525 13527 
13528 13537 13537 13538 13538 13540 13606 13606 
13606 13608/M 136093/M 14040 14041 14044/P 14045/P 14303 
14400 

mmv$async_work 10640 13228/M 13229/M 13230/M 13991 13892/M 13998 13899 14001/P 
14002/P 18009/P 14013/M 

mmv$check_ queues ; S56 9719 11758 12138 

mmv$free file _server_pages 11176 11695 

mmv$gpql 10726 11287 11288 11285/M 11281/S 11293/M 11284/M 11294 11584 


ee REFERENCE ABBREVIATIONS : Mzmodify, tattribute, S=tsubscript, I:21/6 ref, Reread, W-write, P=parameter 


new _asid 


REFERENCES OF mmm$monitor_ request _processor 


*x** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/TII 


IDENTIFIER----rr rece ee eee se 2's DEE TUNED .8'< s(s:<'= SPS eRe) Reyer eis REFERENCES 
ON LINE 
12106 
13167 
13255/M 
14065 
mmv$reassignable page frames 10750 9463 
11297 
11604 
13504/M 
13897 
14032 
mmv$reduce_jws_for_ thrashing 11178 13934 
mmv$resident_job_target 10766 13818/M 
mmv$ring!t_ request trace 11175 13412/M 
mmv$shared_pages_in_jws 11011 12767 
mmv$shared queue age_interval 11179 13906 
mmv$successful_error_retry 11543 11434/M 
mmv$tables initialized 10771 12979 
mmv$test pt_fult 11183 14062 
mmv$test reassign_asid 10776 14039 
mmv$t ime_to_calil_mem_mgr 10791 13231/M 
mmv$total_ contig pages _ assigned 9186 12672/M 
mmv$total page_frames 11184 13805 
mmv$write aged_out_pages 10785 14137 
monitor fault 11773 11781/M™ 
monitor lock 400 $377/P 
13552/P 
14404/P 
move_ page 13065 13170/M 
-move_ page 13074 13080/M 
move_page 13127 13170/P 
mpt_ status 13128 13226/P 
mtc$ job_fixed_ segment 7306 9338 
13460 
14049 
mtp$cst_p 10173 12590 
imtp$error_ stop 9405 11197 
11948 
12278 
14140 
mtp$set_inter lock 9409 9377 
13490 
14371 
mtp$set status _abnormal 10185 10192 
13011 
mttS$monitor_ inter lock 581 400 
mtv$csto 10179 10175 
: 14356 
mtvS$monitor_ segment table 10511 13590/M 
mtv$nos_segment_tabile_p 10521 135982/M 
nat$received_ message descriptor 5270 5263 
nat$received message_list S262 4802 
13748 140095/P 


: Memodify, 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER----+-+-eerer ree ss = DEF LNED -c 847s ccc e eee es REFERENCES 
: ON LINE 
11584 11584/M 
13505/M 1350S/S 
13911/P 13911/P 
mmv$image_file 11186 13508/M 
mmv$ jws_queue_age_interval 11177 13935 
mmv$last_active_shared_queue 11180 13807 13909 
mmv$max_template_segment_number 10662 14382 
mmv$max_working set_size 10656 13822/M 13823 
mmv$memory wait queue 10692 11753 11783 
mmv$multi_page_ write 10685 12730/P 14158/P 
mmv$multiple caches 10669 11210 11228 
mmv$multiple page maps 10677 11228 11247 
12938 13326 
mmv$no_ memory _ buffering 10702 11448 11675 
mmv$per iodic_call_interval 11181 14088 
mmv$pft_p 10708 11195/P 11196 
12092 12270 
12561/M 12609 
12750 12766 
12785 12786 
12908 13081 
13191 13204 
13325/S 13326/P 
13338/S 13346/S 
13505/M 13558 
13564/P 14065 
14067 14074/P 
14144/P 14150 
mmv$pfti_array_p 10717 9740/S 3740/M 
$779/M $779 
10048 10048/Ss 
10053 10053/S 
10107/M 10108/M 
12447/M 12447 
12465 12465 
12465 12465 
12476 12476 
12863 12563/S 
12612 12612 
12612 12612 
12648 12648 
12651 12651 
12651 12651 
12658 12658 
12778 12778/S 
12801/M 12801 
12934 12934 
12934 12934 
13356 13356 
14419 14419/8S 
mmv$pt_ length 10734 14063 14069 
mmv$pt_p 10740 11441 11518 
11957/M 11966/M 
* *% REFERENCE ABBREVIATIONS Memodify, 


1.0 89102 


12269 
13168/M 
13324 
14065 
3903 
11553 
11618/M 
13504 
13897 
14137 


13820/M 
13412 


11434 


14088/M 
12672 


14138 
11782 
13139/P 
13888/P 


13170/M 
13107/M 


$272 


14O080/P 


11584/Ss 
13505/M 
13914/P 


13824/M 
11754/P 


11601 
11261 


11291/M 
12445 
12647/S 
12767/S 
12787 
13166 
13219 
13327/S 
13480 
13588 
14065 
14075/P 
141857/P 
9764 
9780 
10050 
10056 
10108 
12463 
12465/M 
12476 
12476 
12563 
12612/M 
12648 
12648 
12651/M 
12658 
12658 
12778 
12801 
12934/M 
13356 
13356 
14419 
14186 
11587 
11969 


Azattribute, 


12647/M 
13170 
13325/M 
14072 
$903 
11584/M 
11618 
13505/M 
13899 
14137 


13822 


11805/P 
13308/P 
13605/P 


13235/P 
11490 
13490 
14258 
12843 
11591 
12000 
12849 


13139 
13598 


12265 
13185 


12721 


Azattribute, 


11584/M 
13505/M 
13914/P 


14022 


12650 
11273 


11500 
12457 
12665 
12768 
12794 
13166 
13251/M 
13327 
13481 
13559 
14065 
14080/P 
14164 
9764 
$780/S 
10050 
10056 
12442/M 
12463 
12465 
12476 
12476 
12563 
12612 
12648 
12648 
12651 
12658 
12658 
12778 
12801/S 
12934 
13356 
13356 
14419 


11674 
11978/M 


S:subscript, 


12727 
13173/M 
13327 
14143 
$907 
11584 
11752 
13505 
13899 
14137 


11810/P 
13421/P 
13715/P 


13236 
13139 
13552 
14307 
14294 
11657 
12078 
12863 


13308 
13605 


12871 
13182 


12843 


S=subscript, 


11584/M 
13505 
13915/P 


14023/P 


114487 


11529 
12467 
12666 
12770 
12848 
13167/S 
13321 
13328 
13483 
13560 
14065 
14139 
14192/M 
S777 
$782 
10051 
10068/M 
12442/M 
12465/M 
12465 
12476/M 
12563 
12563 
12612 
12648/M 
12651/M 
12651 
12658/M 
12778 
12778 
12801 
12934 
13356/M 
14419 
144193 


11799/M 
11981 


12767 
13212 
13331 
14187 
11295/M 
11584/M 
11980/M 
13505/M 
13929 
14137 


13439/P 
14049/P 


13308 
13598 
14371 
14356 
11738 
120935 
13237 


13421 
13715 


12874 
13241 


13835 


1211/0 


Is=I/O ref, 


Reread, Wewrite, 


1989-08-21 13:33:34 
11584 13505 13505 
13805 13806 13808 
13924/P 13924/P 14135 
11692 12020 12650 
11573 11584/M 11935 
12519 12554 12555 
12666 12668 12727/S 
12776/M 12783/S 12784 
12851/P 12862 12865/P 
13168/S 13170 13179/S 
13321 13322/P 13324/S 
13331/S 13331 13332 
13502 13503 13505/P 
13561 13562 13563 
14065 14066 14066 
14142 14143/58 14143 
14193/M 14417/M 14525 

3777 9778 9778 
83782 10047/M 10047 
10051 10052/M 10082 
10069/M 10070/M 10107/S 
12442/M 12447/S 12447/M 
12465 12465 12465/S 
12465/S 12465 12465 
12476 124676 12476/S 
125863 12563/M 12563 
12563 12610/S 12610/M 
12612/S 12612 12612 
12648 12648 12648/S 
12651 12651 12651/S 
12651/S 12651 12651 
12658 12658 12658/S 
12778 12778/M 12778 
12778 12801 12801 
12801 12801 12801 
12334/S 12934 12934 
13356 13356 13356/S8 
14419 14419/M 14419 
14418 

11930 11943 11946 
11988 11989/M 11992/M 
ref, Rztread, Wewrite, P:p 

1989-08-21 13:33:34 
12783 12909 13083 
13239/M 13240/M 13254/m 
13338/M 13346/M 14064 
14490 
11295 11296/M 11296 
11584 11584 11604/M 
11980 12917/M 12917 
13505 13505 13897 
139293 14022 14032 
13450/P 13470/P 13490/P 
14157/P 14307/P 14371/P 
13421 13439 13450 
13605 13715 13953 
14392 14404 14408 
14444 
11919 11941 11944 
12136 12239 12262 
13300 13629 14051 
134398 13450 13470 
14049 14157 14307 
12877 12998 13000 
13615 
13836 13837 14294 


PAGE 493 


arameter 


PAGE 494 


Pzparameter 


REFERENCES OF mmm$monitor request _processor NOS/VE CYBIL/II 1.0 88102 
TOENTIFI ERS <2 25s ee sie eee ee DEFINED-------- RS Sp eee REFERENCES 
ON LINE . 
new_aste_p 13750 14010/P 14080/P 
new _ ast i 13749 14009/P 14080/P 
new_job_ajl_ordinal 14330 14376/Ss 
new job_ijil_ordinal 14342 14376/M 1%18377/P 14403 
new _sfid 7705 13525 13551 13552/P 
next cyclic _aging time 4620 13954 14409/M 
next pFfti 4460 12065/M 12073 12075/M 
12121 12125/M 
next pFfti 12507 12520/M 12532 
next pfti 14121 14142/M 14172 
next queue_id 4459 12064/M 12074 12076 
nic$cc_connect_confirm 5299 5290 
nic$cc connect request 5298 5288 
nic$cc_ expedited data 5304 5290 
nic$cc_max_pdu_kind 5306 5309 
nic$channei_connect ion_pdu 5322 5277 
nhic$channelinet_pdu 5322 5279 
nit$cc_pdu_kind 5309 5287 
nit$Scc_seq#_or_connect_time 5286 5278 
nit$cc_sequence_ number 5312 5291 
nit$device_ identifier $3193 $273 
nit$pdu_type 53222 5276 
no _of data _commands 1104 12212 
normal 1785 10190/M 115S50/M 113906/M 
12388/M 12871/M 12874/M 
13011/M 13135/M 13142/M 
13615/M 14475/M 14491/M 
notify swapper_when_io complete 38916 11748 
now 10754 3463 $303 11296/M 
11584 11752 13505/M 
14022 14032 14137 
nowait wait 13396 13637/P 
nulil_osva 11208 11213 
null _sva 11226 11231 11232 
null osva 11245 11250 
null _sva 11368 11601 
nulisva 11876 12020 
null sva 12628 12650 12650 
offset 1011 11477 11480 11482 
12007 12025/M 12025 
12666 12666 13204/M 
13619/M 14296/M 14374/M 
offset $329 9334/M $341/M $344 
offset $368 $375/M 9375/M $375 
offset 11460 11480/M 11490/M 11490 
offset 13065 13139/M 13139/M 13139 
offset 13272 13308/M 13308/M 13308 
offset 13377 13421/M 13421/M 13421 
13450 13460/M 13460/M 
13490/M 13490 13552/M 
1360S/M 13605/M 13605 
offset 13688 13715/M 13715/M 13715 
ees REFERENCE ABBREVIATIONS Memodify, Atattribute, 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER- +--+ 2 ese eee eee een ene DEFINED---- er eee eer eee REFERENCES 
ON LINE 

offset 13737 14049/M 14049/M 14049 

offset 14111 141587/M 141857/M 14157 

offset 14211 14258/M 14258/M 14258 

offset 14277 14307/M 14307/M 14307 

offset 143293 14371/M 14371/M 14371 
14404 

old_sfid 7704 13527 13536 

old_sfid 13337 13536/M 13538 

open validating ring number 4394 14388 

osc$aging_interval_maximum 4685 4688 

osc$base_ exception 5983 5985 6132 10923 

osc$cali_instruction 5502 5510 

osc$data_read 5501 5510 

osc$free_ running clock maximum 767 764 10430 

eosc$invalid_ring 602 642 

osc$keypoint base 10823 10925 10929 10833 
10355 10959 10963 
10884 10987 103392 

osc$max_channel_number 8936 83393 

osc$max_ fault contents 5635 5629 

osc$max_idie count 4749 4757 

osc$max_integer 8607 8612 8613 

osc$max_kpt_ pages 10814 10820 10822 10824 

osc$max_name_size 2811 2815 2818 3025 

osc$max_ number _of processors 4734 3800 9554 108493 

osc$max,_page_frames 3382 3372 3373 3374 
4419 4$63 4569 
10757 

osc$max_ page size 755 751 

osc$max_ page _table_entries 3383 3386 

osc$max_ring 601 642 643 

osc$max _segment_ length 625 648 2226 5005 

osc$max status _condit ion_code 1807 1803 1819 

osc$max status condition_number 10195 10186 

osc$max_string_ size 1823 1826 18293 1834 

osc$max_ tasks 527 524 

osc$maximum_offset 624 625 645 645 

osc$maximum_processor_id 5527 5523 

osc$maximum_processor_ number 4726 4721 

osc$maximum_processors 4730 4726 4734 

osc$maximum_segment 623 644 

osc$min_ecc $982 5383 

osc$min_integer 8606 8610 8611 

osc$min_page_size 754 751 

osc$min_ring 600 643 

osc$non_writabie 3787 10080 

osc$nowait 7774 13396 

osc$pr_base_constant 6800 $501 $510 $539 
11488 11488 11494 
13349 13348 13938 
14003 14075 14075 
14158 

osc$purge_all_cache 7655 11213 11231 11601 

*** REFERENCE ABBREVIATIONS Memodify, Az=attribute, 


14417 


12081/M 


12082/S 


12048/M 
12877/M 
13150 


11296 
13505 
14137 


11483 
12236 
13204 


13439/M 
13460 
13552/M 


Stsubscript, 


14392/M 


10936 
10967 


5036 


646 


95793 
11494 
13942 
14144 


12650 


S=subscript, 


1989-08-21 13:33:34 PAGE 495 

120971 12091 12092/S 12116 
12084 12085/M 12087/M 12087 
12201/M 12227 12261 12265/M 
12983/M 12992 1293938/M 13000/M 
1318S/M 13192/M 13241/M 13414/M 
11297 11553 11584/M 11584 
13505 13897 13899 13929 
11491 11501 11501 11816 
12292/M 122932 12296 12665 
13261 13316/M 13480 13481 
13439/M 13439 13450/M 13450/M 
13470/M 13470/M 13470 1343930/M 
13552 135938/M 13598/M 13598 

I=I/O ref, Reread, Wewrite, P=parameter 

1989-08-21 13:33:34 PAGE 496 

14392/M 14392 14404/M 14404/M 
10940 10944 10848 10951 
10870 10973 10977 10980 
11022 
3428 3970 3971 44aitT 
$sgs0o0 10754 10755 10756 
11482 11485 
$635 8642 $818 9820 
11814 11814 13322 13322 
13976 13976 13378 14003 
14144 14152 14152 141598 

121/00 ref, Reread, Wswrite, P=parameter 


REFERENCES OF mmm$monitor_req 


IDENTIFIER-----+-+--- scene eee 
esc$purge_all_page_seg_ map 
osc$segnum_job_fixed_heap 
osc$sva_purge_a11_page_map 
osc$sva_purge_one_page_map 
osc$task_ time _slice_maximum 
osc$traps_ enabled 
osc$vl_cache_bypass 
osc$vi_invalid_entry 
esc$vl_reguilar_segment 
osc$wait 

osk$debug 

osk$entry 

osk$exit 

osk$m 

osk$per formance 
osk$system_class 

osp$process keypoint_io_error 
osp$process_keypoint_periodic 
ost$aging_ interval 

ost$asid 


ost$binary_unique_name 
ost$byte 

ost$byte_count 
ost$cilass_15_keypoint 
ost$clear_file_ space 
ost$cp_time 
ost$cp_time_value 
ost$cpu_element_id 
ost$cpu_idie statistics 
ost$cpu_memory_port mask 
ost$cpu_running_or_stepped 
ost$cpu_state 
ost$cpu_state_ reason 
ost$cpu_state_ table 


est$cs_ lock 
ost$cst_trace_control! 
ost$date_t ime 

ost$debug code 
ost$debug_list 

ost$debug_ list_entry 
ost$debug_ mask 
ostS$exchange_ package 
ost$execute_ privilege 
ostS$execution_control bleck 


ostSexternal_interrupt request 
ostSfamily_name 

ost$flags 

ost$frame_descriptor 


xe x 


REFERENCES OF 


IDENTIFIER------------+---+--- 


'ost$free_ running clock 


-ost$global_task_id 


ost$halfword 

ost$heap 

ost$idle_ type 

ost$Skey_ lock 
ost$key_lock_vaitue 
ost$keypoint 
ost$keypoint_class 
ost$keypoint contro} 
ost$keypoint_ environment 
ost$keypoint_mask 
ost$keypoint_multipro_option 
ost$ logical processor_id 
ost$minimum_save_area 
ost$monitor condition 
ost$monitor conditions 
ost$monitor_fautlt 
ost$monitor_ fault contents 
ost$name 


ost$non_negative_integers 
ost$p_register 

‘ost$page_id 

ost$page_size 

ost$page_table 
ostSpage_table_entry 
ost$page table_ index 
ost$paging statistics 
ost$parcel 

-ost$physical_ channel_number 
ost$pre_ processed _for_reconfig 
ost$processor_element_id 
est$processor_element_number 
iost$processor_id 
ost$processor_id_set 
ost$processor_keypoint_control 
‘est$processor model number 
ostS$processor_serial_number 
ost$pva 

. oSt$read_privi lege 
ost$real_memory_ address 


‘ost$register number 

ost$ring 

ost$ringi_terminat ion_reason 
.est$segment 


RE 


mmm$monitor request_processor 


uest_processor 


ON LINE 
7664 11232 11250 
3551 14365/S 14366/S 
7660 11264 12938 
7659 11276 11447 
4125 4128 
5445 11797 
4972 14366 
4372 14253 14254 
4972 13591 13593 
7774 12861 13396 
7040 11571 11934 
7038 12982 13408 
7039 13016 13652 
7077 11571 11934 
7042 12116 
7052 7036 7037 
10198 11582 
10199 14027 
4688 4617 4618 
1014 1010 3414 
50398 9151 
$710 9790 
13748 13775 
663 402 8545 
1017 1496 1631 
1004 11878 12186 
10899 10867 
3019 2621 
4232 4200 4245 
4230 3956 4233 
4718 3831 
4752 3834 
4720 3807 
4770 4767 4767 
4765 3816 
4776 3837 
3803 3800 9728 
12961 13067 
774 4800 
5870 3835 
8617 8101 10901 
5501 5489 
5497 5401 
5488 5497 
5507 5400 
5350 4787 
3781 3776 4973 
4786 3817 4812 
117783 13689 
5858 3823 
4698 4693 
5407 5357 
S465 5480 
REFERENCE ABBREVIATIONS M=modify, Azatt 
NOS/VE CYBIL/II 1.0 89102 
DEFINED <2 <2 sete Sees REFERENCES 
ON LINE 
764 418 3432 
3973 3974 
10328 10329 
518 420 511 
4798 5839 
10226 10233 
10583 11547 
10198 4738 
3568 7795 7803 
4761 4756 
631 4979 5083 
637 634 S424 
10890 10300 
5433 5370 S441 
10831 10794 
190881 10838 
5441 5373 10837 
10885 10839 
4721 3808 
5475 5362 5450 
5326 5333 
5333 5363 5367 
5612 5561 10265 
$629 5625 
2818 2781 2842 
4846 43910 
8612 8084 
$422 5351 5476 
3388 3398 
751 732 11004 
3402 10740 
3393 3402 4480 
3386 3402 4812 
4268 4246 4827 
1021 3829 3830 
8339 8881 
5866 3838 
4737 4718 
4746 4739 
5523 4730 5517 
5517 4789 10851 
190818 10853 
681 665 4704 
759 664 4705 
653 5395 5413 
3784 3777 4974 
1002 1130 1396 
1885 1591 
7347 8048 
S418 5392 5461 
642 654 4376 
5535 4823 
644 4183 655 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


-~REFERENCES 


Memodify, 


1.0 83102 


12020 
14367/S 
13326 
11692 


14298 


14228 
13782 
14090 
12116 


79038 


3433 
9152 
$981 
14112 


4819 
4234 


$959 
13274 


$857 
14212 


ribute, 


3925 
4065 
10415 
1122 
$722 
10248 
11778 


S426 


10837 


5616 


5455 
11773 


2888 
S654 


5683 


11474 
13774 


Azattribute, 


12650 
14373/S8 


14368 


14291 


12982 


7039 


3914 
9526 
11892 
14124 


11049 
4612 


10173 
13379 


9869 
14213 


Sssubscript, I: 


3326 
4077 
11071 
3812 
6062 
10254 
13754 


10837 


5691 
29319 
7847 


11545 


5613 


1474 
1613 


5470 
4994 


5077 


S=subscript, 


1989-0 
13594 14375 
144800/5S 14401 
14383 
14354 14445 
13408 13652 
71040 7041 
4483 4494 
9692 9697 
12373 13113 
4613 &832 
12369 12583 
14283 14337 
$833 9946 
14278 14332 
1/0 ref, 
1989-0 
3927 3928 
4611 4620 
11078 110793 
3919 3948 
7816 8129 
10264 190271 
14226 14351 
10837 
5705 
3247 4657 
7877 10352 
12901 14183 
5706 190292 
1487 1S76 
1617 1704 
5471 
S074 5075 
5201 $390 


I:sI/0 ref, 


8-21 13:33:34 PAGE 497 
/S 14405 14407/S 

14476 

14445 14476 

71042 

4495 4978 

$702 9709 

13278 13383 

12712 12841 

14441 14462 

9988 10234 

14333 14438 
Reread, W-ewrite, P=parameter 
8-21 13:33:34 PAGE 498 

3962 3372 

4818 9616 

13746 13762 

4607 4737 

10213 1021985 

1O277 10583 

4696 4698 

1577 1580 

1710 3828 

$412 

$491 6060 


Reread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER----------+-+----e%- -- 


est$segment_access_ control 
ost$segment_descriptor 
ost$segment_length 


ost$segment_offset 


est$S$signature_lock 
ost$stack_frame_save_area 
ost$state_tables 
ost$status 

est$status_ condition 
ost$status_condit ion_code 
eostS$string 

est$string size 
ost$system_filag 
ost$system_virtual_address 


est$task_ index 
ost$task_time_slice 
ost$top_of _stack_pointer 
ost$trap_enable 

ostSuser_ condition 
ost$user_conditions 
ostS$user_ identification 
est$user_name 
eost$valid_relative_pointer 
ost$valid_ring 
est$virtual_machine_identifier 
estS$wait 

ost$word 

ost$write privilege 
est$x_register 

osv$180_ memory _limits 
osv$cpus_logically_on 


osv$cpus_physically configured 
osv$keypoint_contro} 
osv$keypoint_ periodic _ipid 
osv$mainframe_wired_heap 
osv$page_size 


osv$time_ to check _asyn 


p 


KX 


REFERENCES OF 


IDENTIFIER------------+-------- 


p_register 
page _ aging interval 
page_count 


page count 
page_count 

page count 

page count 
page _ offset 
page _ offset 

page _ table _ entry 
page_wait_ info 
pageid 

pages _in_memory 
pages _ not _deileted 
parent fde op 
parent _sdt_p 
parent _sdt op 
parent sdtx p 
parent sdtx_p 
parent xcb_ p 
parent _xcb p 

pass 

periodic requested 
pfc$execute 
pfc$read 
pftS$share_ options 
pftSusage_ options 
pftS$usage selections 
pft_entry 
pft_entry op 
pft_entry op 

pft link 

pfte_p 

pfte_p 

pfte_p 

pfte_ p 


pfte_p 
pfte_p 


pfte _p 
pfte p 


pfte_p 
pfte_p 


ee ¥ 


mmm$monitor request processor 


DEFINED 
ON LINE 


3774 
4971 
648 


645 


775 
5449 
3800 
1791 
1815 
1819 
1832 
1826 
5730 
10093 


§24 
4128 
5410 
5444 
5336 
$343 
4691 
4696 

651 

643 
5432 
7774 
1023 
3787 
5419 

11030 
$554 


11022 
10794 
11896 

77935 
11004 


11038 


10294 


REFERENCE ABBREVIATIONS 


mmm$monitor_request_processor 


DEFINED 
ON LINE 
§351 
4617 
118397 


12191 
12970 
13398 
14285 
11898 
12192 
4480 
4820 
3398 
3428 
7729 
14343 
14218 
14344 
14220 
14345 
14212 
14332 
13773 
10832 
3028 
3027 
3033 
3030 
3031 
4479 
13065 
13078 
3427 
11285 
11368 
11472 
11844 


11767 
11899 


12193 
12383 


12509 


12899 


REFERENCE ABBREVIATIONS 


eee ew ee mene ee ~~-REFERENCES 


-— sc ee we ew em ere we ee 


NOS/VE CYBIL/II 


1.0 89102 

7702 7714 99334 
14218 14225 14288 
S096 

4945 

5073S 5081 5103 
7762 8461 8572 
12895 13693 

656 1011 2247 
7732 8460 10137 
7853 

5483 5649 
10179 

3062 3241 5090 
1786 8554 8575 
1794 1815 

1795 

1833 

5786 

974 4517 9729 
11259 11271 11903 
12894 129374 13123 
14473 

519 558 5593 
$114 10349 

5402 

5359 5680 

§343 

5361 5365 5453 
4606 

4692 

425 428 353938 
2984 2985 2986 
5353 5355 5477 
7763 8574 12837 
1490 1623 1718 
3778 4975 

5332 5461 
13501 14188 14189 
$501 $510 9538 
11488 11488 11494 
133493 13349 13838 
14003 14075 14075 
14159 
13834 
11932 14026 
11932/S 
135390/S 13592/S 
11570 11916 11917 
12121 12122 12236 
12296 13212 13501 
13232/M 
14488/P 

Mzemodify, Azattribute, 


NOS/VE CYBIL/II1 


1.0 891602 
REFERENCES 

11797 12987 
13972 
11917/M 11918 12005/M 
12127/M 12127 12128 
12237/M 12238 12284/M 
13007/P 
13647/P 
14309/P 
11916/M 11917 12004 
12236/M 12237 12283 
12106/M 
11793 11803 11804 
14065 14065 
13360 13572 14042 
13293/M 13340/M 143340 
14371/P 14372/M 
14230/P 14254 142586 
14357/P 14365 14368/M 
14230/P 14255 
14357/P 1&8370/P 14389 
14230/P 14239 14242 
14357/P 
14062 
14026 
3030 3033 
3030 3033 
3034 
3031 
2615 
12105/M 12113 
13170/M 13170/S 13170 
13081/M 13083/S 13091 
11497 12443 13162 
11287/M 11287/S 11288/5 
11584/M 11584/S 11584/s 
11500/M 11501 11501 
11381/M 11382 11383 
11428 11429 11430/P 
11573/M 11574 11577/M 
11590 11603 11613/M 
11636/M 11638 11642/P 
11665 11666/P 11673 
11786/P 11793/S 
11835/M 11936/M 11936 
11960 11961/M 11961 
11979 11985/M 11986 
12038 12092/M 12094 
12283/P 12270/M 12271/M 
12445/M 12446 12448 
12467/M 12468/P 12469 
12519/M 12520 12521 
12528 | 12530/M 
12808/M 12909/S 12910 

Memodify, Azattribute, 


9947 
14331 


5105 


9882 


5009 


5684 


9881 
12198 
13132 


3842 


5482 


4816 
$402 


13396 
7984 


9578 
11494 
13942 
14144 © 


11930 
12237 
13816 


S=:subscript, 


12005 


12284 


12008 
122391 


11808 


13347/M 


14369/M 


13170 
13092 
13177 
11289/S 
11584/Ss 
11502 
11388 
11433/M 
11577 
11615 
11646 
11674/S 


11939 
11964 
11887/P 
12105 
12271 
12449 
12470 
12522 


12910 


S=esubscript, 


1988-08-21 13:33:34 
10075 11775 13692 13703 
143483 
5108 6083 7747 77493 
3372 12578 12630 12699 
5492 5494 6061 6082 
$923 99890 10168 106493 
12544 12577 12629 12698 
13288 13462 14287 14350 
11134 11147. 
5652 $6932 
4817 
13690 
9635 9642 $818 9820 
11814 11814 13322 13322 
13876 13976 13878 14003 
14144 14152 141582 14159 
12004 12007 12024 12025 
12269 12283 12291 12292 
14064 14072 14190 14524 
I=1/O ref, R=read, Wewrite, Pp 
1989-08-21 13:33:34 
12006 12058/M 12059 12060 
12285 12303 
12024 12026/M 
12293/M 12297 
11809 
13347 13352/M 13352 
14390 
13170 13170 
13083 13102 
13476 
11291/S 11293/S 11294/S 11294/S 
11584/S 11584/S 11584/S 115884/S 
11503 11517 11518/S 11522 
11400 11463 11414/P 11428 
11441/S 11442 11445 11447/P 
115793 11580 118584/P 11587/S 
11623/P 11626/M 11628 141633/P 
1164S/M 11653 118664 11665 
11689 11689 11692/P 11706 
119406 11946 119855 11956/P 
11865/P 11870/M 118374/M 11376/M 
119988 12003/P 12012 12035/P 
12106/S 12107 12125 
12276 12277 12298/P 
12450 12451 12483 12455/M 
12471 12473 12475/M 
12823/P 12524 12525 12526 
12823 12923 12924/P 129829/M 
I=I/0 ref, Rtread, Wswrite, P=p 


PAGE 499 


arameter 


PAGE 500 


arameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 501 
. IDENTIFIER: ------- SS So pass sss = DEFINED----+r errr eres REFERENCES 
ON LINE 
12930/M 
pfte _p 13377 13505/M 13505/S 13505/S 13505/S 13505/S 13505/S 13505/S 13505/S 
‘pfte p 14513 14525/M 14526 14527 14528 
pfti 3774 9776/M $777 9777 8780/M 9783/M 9785 
pfti 100484 10048/M 10050 10050 10053/M 10057/M 10059 
pfti 10104 10107 
pfti 11191 11195/S 11196/S 
pFti 11284 11289 11291 11293 
pfti 11368 11584 11584 118584 
pfti 11473 11497/M 11499 11499 11500/S 11504/P 11505/P 11521/P 11523/P 
11523/M 11829/S 
pfti 11546 11386/P 114802/P 11404/P 11420/P 11449/P 11450/P 11452/P 11570/M 
11571 11873/8S 11584/P 11623/P 11633/P 11642/P 11676/P 11677/P 
11679/P 11696/P 11697/P 1169S9/P 
pfti 11766 11824/P 11825/P 
pfti 11900 11930/M 11932/M 11934 11935/5 119S56/P 11965/P 11987/P 11994/P 
: 12004 
pfti 12194 12269/M 12270/S 12283 
pfti 12367 12447 
pfti 12367 12465/M 12465 12465/M 12465 12465/M 12465 
pfti 12367 12476/M 12476 12476/M 12476 12476/M 12476 
pfti 12382 12443/M 12444 12444 12445/Ss 12447/P 12457/M 12487/S 12465/P 
12466 12466 12467/S 12468/P 12476/P 
pFfti 12508 12517/M 12518 128518 12519/S 12523/P 12532/M 
pfFti 12543 12563/M 12563 12563/M 12563 12563/M 12563 
pfti 12549 12552/P 12553 12553 12554/s 12555/S 12556/P 12557/P 12559/P 
12561/S 12563/P 
pfti 12576 12612/M 12612 12612/M 12612 12612/M 12612 
pfti 12585 12598/P 12599 12607 12607 12609/S 12612/P 
pFfti 12628 12648/M 12648 12648/M 12648 12648/M 12648 12658/M 12658 
12658/M 12658 12658/™M 12658 
pfti 12628 12651/M 12651 12651/M 12651 12651/M 12651 
pfti 12639 12643/P 12646 12646 12647/S 12648/P 12651/P 12654 12654 
1265S5/P 126S56/P 12658/P 
pfti 12697 12778/M 12778 12778/M 12778 12778/M 12778 12801/M 12801 
12801/M 12801 12801/M 12801 
pfti 12714 12722/P 12726 12726 12727/S 12730/P 12732 12750/S 12751 
12766/S 12767/S 12768/S 12770/S 12771/P 12772/P 12774/P 12776/8S 
12778/P 12782 12782 12783/S 12784/S 12785/Ss 12786/S 12787/S 
12794/S 12795 12801/P 
pti 12894 12934/M 12934 12934/M 12934 12934/M 12934 
pfti 12300 129306/P 12907 12907 12908/S 12918/P 12924/P 12934/P 
pft i T3065 13170/S 
ptt i 13072 13081/S 
pfti 13129 13162/M 13166 13166/S 13166 13166/S 13167/S 13168/S 13170/P 
13173/P 13175/P 13176/P 13177/M 13179/8S 13184 13191/S 13204/S 
13205/P 13219/S 13226/P 13235/P 13250/P 13251/S 13252/P 
pfti 13272 13356/M 13356 13356/M 13356 13356/M 13356 
pfti 13285 13318/P 13320 13320 13321/S 13321/S 13322/S 13324/S 13325/S 
13326/S 13327/S8 13327/S 13328/5S 13329/P 13330/P 13331/S 13331/S 
13332/S 13338/S 13339/P 13342/P 13343/P 13346/S 13356/P 
S opFtti 13377 13505 13505 13505 
pfti 133989 13476/M 13479 13479 13480/S 13481/S 13483/M 13483/S 13502 
*x x REFERENCE ABBREVIATIONS Mzemodify, Azattribute, S:subscript, I:I/O ref, Reread, Wewrite, Ptparameter 
REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.060 88102 1989-08-21 13:33:34 PAGE 502 
IDENTIFIER--- + eee eee rte rere ee DEFINED ss 8 s0ee4. see ee 3 REFERENCES 
ON LINE 
13503/S 13505/P 13505/S 13558 13559/S 13560/S 13561/S 13562/S 
13563/S 13564/S 13570/P 13571/P 
pfti 13751 14064/M 14065 14065 14065 14065/S 14065/S 14066 14066/S 
14067/S 14072/M 14074/S 14075/S 14080/S . 
pfti 14120 14135/M 14137 14137 141339/8S 14142/S 14143/S8S 14143/S 14144/S 
14150/S 14157/S 14158/P 14164/Ss 14172/M 
pFti 14184 14190/M 14191/P 14182/S 14193/S 
pfti 143238 14419/M 14419 14419/M 14419 14419/M 144193 
pfti 14346 14412/P 144815 14415 14416/P 14417/8 14418/P 14419/P 
pfti 14514 14524/M 14525/S 
pfti_ first 3372 $764 10047 10048/S 10070/M 12442/M 12463 12465 12465/S 
12651 12651/8S 
pfti_ index 3373 9740/S $777 9778 9779 /M $773 9780/S $782 10047/M 
10050 10051 10052/M 10082 10053/S 10056 10069 /M 12442/M 
12465/M 12465 12465/M 12465 12465/S 12465 12465 12476 
12476/M 12476 12476/58 12476 12476 12563 12563/M 12563 
12563/S8 12563 12563 12610/S 12612 12612/M 12612 12612/S 
12612 12612 12648 12648/M 12648 12648/S 12648 12648 
12651/M 12651 12651/M 12651 12651/S 12651 12651 12658 
12658/M 12658 12658/S 12658 12658 12778 12778/M 12778 
12778/S 12778 12778 12801 12801/M 12801 12801/S 12801 
12801 12934 129834/M 12934 12834/S 12934 12934 13356 
13356/M 13356 13356/S 13356 13356 14819 14419/M 14419 
144139/S 14419 14419 
pfti_size $761 $764/M 
pfti_size 12367 12463/M 
pftis 3375 9740/M 9780 10048 10053 10107/M 12447/M 12465 12465 
; 124876 125863 12610/M 12612 12648 12651 12651 12688 
12778 12801 12934 13356 14419 
pmc$kilil_task_flag 5790 5806 
pmc$mainframe_id_size 8635 8632 
jpmce$max_ signal contents 5773 5767 
pmc$max_task_id 5548 5545 
pmc$processor model _number_size 8643 8635 8640 
pme$processor_ seriai_num_size 8693 8636 8690 
pmt$binary mainframe_id 4703 4610 8075 10450 
pmt$condition_identifier 5602 5596 
pmt$cpu_model_number 741 730 737 
“pmt $cpu_serial_number 744 731 736 
pmtS$initialization_value 818 417 5087 
pmt$mainframe_id 8632 8076 &8as 10449 
-pmt$program_name 2919 2623 2627 2643 2692 2307 9043 
 pmt$sense_switches 4712 4621 
pmtS$signal 5729 5723 
pmt$signai_contents 5767 5731 
“pmtS$signal_id 5734 5730 6059 
pmt$task_id 5545 4814 §540 
pointer 14470 14486/M 14488/P 
paqie 4S66 11287 11288 11289/M 11291/S 11293/M 11294/M 11294 11584 
af 11584 11584/M 11584/S 11584/M 11584/M 11584 13505 13505 
13505/M 13505/S 13505/M 13505/M 13505 13805 13806 13808 
13911/P 13914/P 13924/P 14135 
‘process_rewrite success 11426 11458 11654 
xx REFERENCE ABBREVIATIONS Mzmodify, Azattribute, S=subscript, I21/0 ref, Reread, Wewrite, P=sparameter 


REFERENCES OF mmm$monitor request processor NOS/VE CYBIL/II 1.0 891062 
IDENTAFPIER S69 6-2 See eee ey eee DEF INE Os:2 3 Sis 2 Se ee se 6 REFERENCES 
ON LINE 
process write failure 11378 11424 11652 
processor state 3809 13835 
psc all 3366 12643/P 13318/P 14412/P 
psc_all_except avail 3366 12722/P 12906/P 
psc_nominal_queue 3366 12551/P 12598/P 
pt full 10648 13230/M 13998 14013/M 
pt _full_aste_p 10650 13228/M 13999 14001/P 
pt_fulil_status 13753 14010/P 14081/P 
pt_full_sva 10649 13228/M 140039/P 
pte_p 11474 11518/M 11519/M 11525/M 
pte_p 11545 11380/M 11422/M 11446/M 
11620/M 11621/M 11629/M 
11694/M 
pte_p 12901 1290983/M 12811/M 12919 
pte_p 14183 14187/M 14188 14188 
pti 4512 11441/S 118518/S 11587/S 
12767/8S 12783/S 128039/5S 
13239/S 13240/S 13284/8S 
13338/S 13346/S 14143/S5 
pti 11901 11926 11830/S 11943/S 
11981/S 11988/S 11889/S 
pti 12195 12243 12268/S 
pt i 13774 14063/M 14064/S 14065/S 
14072/S 
ptk$per formance base 6982 7081 7084 7087 
7105 7108 7111 
7129 7132 7135 
7183 7156 7159 
7177 7180 7183 
7201 7204 7207 
7225 7228 7231 
7249 7282 7255 
7273 7276 7279 
7297 T7300 
ptk$pfti_ for swapout 7117 12117 
ptr_type 10287 14470 
purge _ali_page_maps 12802 12904/M 12832/M 123937 
purge map 11893 118921/M 11982/M 113990/M 
pva 5255 11793 11803 11804 
pva 5413 14486 
pva 5427 11797 12987 
pva 7761 12888/P 12890/P 12993/P 
pva 10232 14486/M 
pva 12196 12217/M 12220/M 12224/M 
queue 13765 13807 13808/S 13909 
13919 13920/S 13821/S 
queue id 3435 11382 11956/P 11965/P 
12468/P 12521 12522 
12996 12996 12997 
queue_id 4509 11287/S8 11288/S 11289/Ss 
11403 11445 11517 
11584/s 11584/Ss 11584/S 
KK REFERENCE ABBREVIATIONS Memodify, Azattribute, 


REFERENCES OF mmm$monitor request processor NOS/VE CYBIL/II 
IDENTIFIER---- ee ce ree eter eee DEF INED~--+---++-2e+-+---- REFERENCES 
ON LINE 
11638 
11979 
12785 
13505/S 
queue status 416 13425 
ri 4376 10084 
r2 43977 14367/M 
rh 12370 12388/M 
rb 12960 12982 
12994 
13007/P 
rb 13066 13135/M 
13185/P 
rb 13273 13291 
13340 
ri 13378 13408 
13440/P 
13480 
13527/S 
13585/M 
13621 
13638/P 
rb_init_new_io 12838 12866/M 
rb status 12839 12871/P 
rb wait 12837 12861 
rcount 12580 12600/M 
recount 13286 13339/P 
rcount 13756 13912/P 
ready _task_count 42493 13963 
ready tasks 11038 13841 
reclaim_astes 10647 13991 
relink _job_fixed_in_new_queue 14414 14414 
remove_ page 12704 12766 
remove _ pages_in_tu 11460 11414 
reqcode 7759 12882 
request 1123 12308/M 
request 76793 13408 
13633 
request 7727 13291 
request 13417 13417 
13497 
13602 
request biock 14461 14475/M 
residence 3448 $332 
13140 
13451 
13560 
14258 
residence 9330 9332/M 
residence $368 $375/M 
residence 11460 11480/M 
residence 13065 13138/M 


*** REFERENCE ABBREVIATIONS 


1.0 898102 


11646 
11986 
12910 
13505/S 
13611/M 


13712 


12423 
12883/M 
12898/P 
13009/P 
13139/P 
131982/P 
13233/M 
13345 
13412/8 
13450/P 
13481/M 
13527 
13586/M 
13632 
13640 


12874/P 
12615/P 
13915/P 


13860 
13992/M 
14420 


11532 
12994 
12309/M 
13412/S 
13635/P 
13333 
13430 
13509 
13612 
14491/M 
$375 
13308 
13460 
13598 
14307 
9336 
$375 
11490 
13139 


11673 
119399 
129323 
13505/S 


12425 

12988/P 
13000/P 
13011/P 
13140/P 
13241/P 
13297/P 
13347/M 
13412/S 
13451/P 
13489/P 
13528/5S 
13598/P 
13632 

13652 


12877/P 


13918 


12311/M 
13412/S 
13652 
13345 
13435 
13513 
13616 
14496/M 
10125 
13309 


14002/P 


11587/M 
11630/M 


12926/M 
14183 

11674/S 
13083/S 
13255/S 


11946/S 
11992/S 


14065/S 


7090 
7114 
7138 
7162 
7186 
7210 
7234 
7258 
7282 


12019 
11808 


12226/P 
13911/S 


11987/P 
12523/P 
13252/P 
11291/S 
11522 

11584/S 


S=subscr 


11689 
12446 
12923 
13505/S 


12426/P 
12988/P 
13002/P 


13142/P 
13261/M 
13308/P 
13347 
13414/M 
13460/P 
13523 
13536 
13600/P 
13633 


13921 


12316/M 
13419 


13351 
13446 
13526 
13650 
14500/M 
11383 
13421 
13470 
13606 
143392 


ipt, 


11603 
11639/M 


12927 
14190 
11789/S 
13167/S 
13324/S 


11957/S 


14068/M 


7033 
7117 
7141 
7165 
7189 
7213 
7237 
7261 
7285 


11809 


13811/S 


12393 
12594 
13425 
11293/58S 
11579 
11590 


I=1/0 


11689 
12448 
13332 
13505/S 


12990/P 
13002/P 


13149/P 


13309/P 
13351 
13419 
13461/P 
13523 
13539/M 
13605/P 
13634/P 


13925/P 


12317/M 
13620 


13453 
13548 


11480 
13422 
13471 
13715 
14404 


1989-08-21 13:33:34 
11606/M 11616/M 11617 
11647/M 11691/M 11693 
12928/M 
12106/S 12647/S 12727/S 
13168/S 13170/8 13179/S 
13325/S 13327/S 13331/S 
11966/S 11969/S 11878/S 
14068 14069 14070/M 

70396 70399 7102 
7120 7123 7126 
7144 7147 7150 
7168 : 7171 7174 
7192 7195 7198 
7216 7219 7222 
7240 7243 7246 
7264 7267 72706 
7288 7291 7294 
13914/S 13914/S 13915/5S 
12424/M 12430/M 12432/M 
12661 12768 12924/P 
13609/M 14402/M 
11294/S 11294/S 11400 
11584/S 11584/S 11584/S 
11603 11615 11628 
ref, Reread, W-ewrite, 

1989-08-21 13:33:34 
11946 11955 11964 
12554 12766 12784 
13503 13505/S 13505/S 
13561 14192/M 
12990/P 12992 12993/P 
13004/P 13004/P 13004/P 
13149/P 13150 13154/P 
13321 13333 13340/M 
13352/M 13352 
13421/P 13422/P 13439/P 
13469/M 13470/P 13471/P 
13524/S 13825/S 13525 
13551 13552/P 13553 
13606/P 13615/P 13620 
13635/P 13637/S 13638/P 
13956/P 13958/P 
13621 13632 13632 
13466 13473 13486 
13554 13587 13595 
12012 12038 13139 
13433 13440 13450 
13490 13491 13552 
14048 14049 14157 


PAGE 503 


P2=parameter 


PAGE 504 


Memodify, Atattribute, Stsubscript, I21/0 ref, Rzread, Wewrite, P=parameter 


REFERENCES OF 


IDENTIFIER--- cc ee ce ete ee ete eee 


residence 
residence 


residence 
‘residence 
residence 
residence 
residence 
residence 


ring 

ring 

rma 

rma 

rma 
rma_list 
rmt$density 


“sac_p 
Save_v 
save_valid 


scheduling dispatching priority 


scheduling memory _ levels 
sdt_offset 


sdte_ op 
sdte segment number 
sdtx_ offset 


sdtx_ op 
sdtx_p 
sdtx_p 
sdtx_p 
sdtx_p 
sdtx_p 
sdtx_p 
sdtx_p 
sdatx_p 
sdtx_ table 


xxex 


REFERENCES OF 


,sfid 


eek 


mmm$monitor request _processor 


DEFINED 
ON LINE 
13272 
13377 


REFERENCE ABBREVIATIONS 


mmm$monitor request processor 


IQVENTIP IER << 7 Sse se oe ee Sie sme -OEFINED 

ON LINE 

sdtxe_p 11776 

sdtxe_p 13401 

seg 9328 

seg 9368 

seg 11460 

seg 13065 

seg 13272 

seg 13377 

seg 13688 

seg 13737 

seg 14111 

seg 14211 

seg 14277 

- $eg 14329 
segment 55937 

segment link 4506 

‘segment_ lock 409 
segment _number 7714 

segment number 10075 

segment _table_ address 1 5394 

segment _table_ address 2 5396 

segment table_ length 5390 

ssegnum 7702 
—segnum 9934 
segnum $947 

segnum 11765 

segnum 12367 

segnum 13377 

segnum 13703 

_segnum 14225 
segnum 14288 

segnum 14348 

.$seqno 520 
sequence number 11135 

server file 7715 

set_length to zero 13691 

“ Sfdip 3933 
sfid 3436 

sfid 4996 

'sfid 7700 
sfid 7726 

3320 


REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


NOS/VE CYBIL/II 


REFERENCES 


14388 
11794/M 
13489/M 
§9335/M 
$375/M 
11490/M 
13139/M 
13308/M 
13421/M 
13450 
13490/M 
13605/M 
13715/M 
140435/M 
14157/M 
14258/M 
14307/M 
14371/M 
14404 
11804/M 
115298 
13101 
12425 
10081 
14236/M 
14237/M 
13710 
13489/P 
99337 
ss50 
11794 
12426 
134893 
13710 
14252 
14258/s 
14237 
14382 
10230/M 
10230 
12423 
13717 
12104 
10124 
13422 
13538 
14401/M 
13490/P 
14389 
13421/P 
13598/P 
13139/P 
$332 


Mzmodify, 


1.0 89102 


14389 
11795/M 
13490/P 
$338/M 
9375/M 
114S930/M 
13139/M 
13308/M 
13421/M 
13460/M 
13490 
13605/M 
13715/M 
14049/M 
14157/M 
14258/M 
14307/M 
14371/M 


11809/M 
12457 
13170 
12426/P 


14239 


13711/8 
14253/S 


14298/S 
14383/58 
11786/M 
11786 


11383 
1346806 
13551/M 
14404/P 
13491/P 
14392/P 
13422/P 
13605/P 
13140/P 
$333 


1.0 89102 
“REFERENCES 

13308/M 13308 13308 
13421/M 13421 13421 
13450 13460/M 13460 
13490 13430 13552/M 
13605/M 13605 13605 
13715/M 13715 13715 
14049/M 14049 14049 
14157/M 14157 14157 
14258/M 14258 14258 
14307/M 14307 14307 
14371/M 14371 14371 
14404 
11797 12987 
13712 
11570 12004/M 12121/M 
11930 12269 13212 
12305/P 12308 12316 
12203 
2320 
11782/M 11783/mM 11802/M 
13324/M 13338 13346 
13167/M 13179 13240 
13965/S 
13817 13820 
9862 9875 9950 
14357 14358 
9862/M 
93875/M 
10080 10084 
13708/M 
13708/P 13712 
14230/M 14231/M 
14231/P 14235/P 14253 
14233/M 
14293/P 14298 14300 
14357/M 14358/M 
14358/P 14365/M 14366/M 
14407 
12426/M 12427/™M 12423S/M 
11793/M 11794/P 
$3876 9937 11794 
14357 14358 
9876/M 
13708/M 
13708/P 13711 13715/P 
14230/M 14231/M 
14231/P 14255 14257 
14293/M 
14293/P 14299 
14357/M 14358/M 
14358/P 14388 14389 
13711 13715/P 14255 

Mz=modify, Azattribute, 


14389 


13491/P 
$344 
$375 

11490 

13138 

13308 

13421 

13460/M 

13552/M 

13605 

13715 

14049 

14157 

14258 

14307 

14371 


13483 


14239 


13712/Ss 
14254/s 


14299/S 
14388/S 


11490/P 
13451 
13560 


13715/P 
14401 
13439/P 
13606/P 
13308/P 
$334 


Azattribute, 


13439/M 
13460 
13552 


14392/M 


12283/M 
14064 


11804/M 


12426 


14256/M 
14302/M 
14367/M 
12430/P 


134893 


14258/P 


14392/P 
14255 


=subscript, 


14392/P 


13439/M 
13460 
13552/M 


14392/M 


14240 


13714 
14255/S 


14300/S 
14389/S 


12012 
13461 
13606 
14255 
13440/P 


13308/P 
$345 


S:subscript, 


13439 
13470/M 
13552 


14392 


12312 
14072 


11809/M 


13708 


14303/S 


14373 


13708 


14401 
14257 


I=1/0 


14401 


13439/M 
13470/M 
13552 


14392/M 


14242 


13715/8 
14255/S 


14302/S 
14389/S 


12038 
13471 
14048 
14255 
13450/P 


13321 


I=1/0 


1988-08-21 


13439 
13470 
13598/M 


14392 


14524 
14188 


14230 


148383 


14230 


14258/P 


ref, Rz=read, 


1989-08-21 


13439 
13470/M 
13598/M 


14392 


14237 


14256/S 


14303/S 
14390/S 


13140 
13491 
1404a9/P 
14258/P 


13451/P 


13:33:34 
13450/M 13450 
13470 13490/M 
13598 13598 
14404/M 14404 
14188 14190 
14231 14293 
14390/M 14400/S 
14231 14293 
14299 14370/P 


Wewrite, Pzp 


13:33:34 
13450/M 13450/M 
13470 13490/M 
13598/M 13598 
144048/M 14404/M 
14256/S 14257/S 
14390/S 14392/S 
13309 13321 
13525 13527 
14157/P 14307/P 
14370/P 14389 
13460/P 13461/P 


ref, Reread, Wewrite, P:zp 
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arameter 


PAGE 506 


arameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 507 
LDENTIC TER 33 ee ee eo ee ae oi CEFF INED <2 <s +s 25-2 s <2 REFERENCES 
ON LINE 

sfid 9368 S375/P 

sfid 9368 $375 $375 $375 9375 

sfid 10118 10124 10125 

sfid 11460 11490 11490 11490 11490 

sfid 13065 13139/P 

sfid 13065 13139 13139 13139 13138 

sfid 13065 13140 13140 

sfid 13272 13308/P 

sfid 13272 13308 13308 13308 13308 

sfid 13272 13309 13309 

sfid 13377 13421/P 134393/P 13450/P 13470/P 13490/P 13552/P 13598/P 13605/P 

sfid 13377 13421 13421 13421 13421 13439 13439 13439 13439 
13450 13450 13450 13450 13460 13460 13460 13460 
134706 13470 13470 13470 13490 13490 13490 13490 
13552 13552 13552 13552 13538 13598 13598 13598 
13605 13605 13605 13605 

sfid 13377 13422 13422 13440 13440 13451 13451 13461 13461 
13471 13471 13491 13491 13606 13606 

sfid 13688 13715/P 

sfid 13688 13715 13715 13715 13715 

sfid 13737 14049/P 

sfid 13737 14049 14049 1460493 1404S 

sfid 14111 14157/P 

sfid 14111 14157 141587 14157 14157 

sfid 14211 14258 14258 14258 14258 

sfid 14277 14307/P 

sfid 14277 14307 14307 14307 14307 

sfid 14329 14371/P 14404/P 

sfid 143293 14371 14371 14371 14371 14392 14392 14392 14392 
144804 14404 14404 14404 

sft$counter 4278 4247 4248 4622 4624 4625 4627 

sft$file_space_limit_kind 5239 5003 

software _ attribute set 4399 13711 

soon 10755 9904 11295/M 11295 11584/M 11584 11604/M 11604 11618/M 
11618 11880/M 11980 12917/M 12917 13504/M 13504 13505/M 
13505 13897 13899 13929 14032 14137 14137 

source _aste_p 13131 13157/M 13162 13177 13233 13235/P 

source sva 13132 13147/M 13204/M 13234 13235/P 13261 

spd_index 4458 12063 12104/S 12124/M 12124 

spde_p 11902 12104/M 12105/M 12106/M 12107/M 12113/M 12113 

specified 7811 12734 12752 12796 12805 12977/M 13410/M 14131/M 

st 4958 13712 14253 14254 14256/M 14256 14298 14300 14302/M 
14303/S 14365/M 14365 14366/M 14367/M 14368/M 14369/M 14373 
14383 14390/M 14390 14400/S 14407 

st 10512 135930/M 

st 10522 13592/M 

st rma 14223 14235/P 14236 14237 

Stack _for_ring 421 10082 

stack _segment_number 13692 13714/M 

statistics 3938 13948 13950 13950 13963 

status 3537 14475/M 14491/M 

status 7675 12388/M 13414/M 13615/P 13638/P 

status 7733 13135/M 13142/P 13149/P 13150 13185/P 13192/P 13241/P 

* xx REFERENCE ABBREVIATIONS M=modify, Azattribute, S=subscript, I:21/0 ref, R=read, W-write, Psparameter 


REFERENCES OF mmm$monitor request processor NOS/VE CYBIL/II 1.0 88102 1989-08-21 13:33:34 PAGE 508 
IDENTIFIER + --- ee et et rrr eee DEFINED-------se eee ere REFERENCES 
ON LINE 

status 7760 12983/M 12988/P 12990/P 12992 12998/P 13000/P 13004/P 13011/P 

status 9499 9505/P 

status 9805 $819/P 

status $838 9843/P 

status 10187 10190/M 10181/M 

status 11375 11550/M 

Status 11460 11488/P 

status 11777 11786/P 

status 11876 12048/M 12048/M 

status 11882 11906/M 12046/P 12048/P 

status 12173 12265/M 12265/M 

status 12175 12201/M 12226/P 12227 12260/P 12261 12265/P 

status 12835 12871/M 12871/M 12874/M 12874/M 12877/M 12877/M 

status 12959 129938/M 12398/M 13000/M 13000/M 13011/M 13011/M 

status 13065 13142/M 13142/M 13185/M 13185/M 13132/M 13192/M 13241/M 13241/M 

status 13272 13322/P 

Status 13377 13615/M 13615/M 

status 13737 14003/P 14075/P 

status 14111 14144/P 

status, loop 12781 12781 12802 

ste 4945 10080 10084 12429/M 13590/M 13582/M 13712 14253 14254 
14298 14300 14302/M 14366/M 14367/M 14368/M 14369/M 14373 
14383 

ste_p 12967 12893/P 

ste_p 14471 14488/P 

stop _pfti 4461 12066/M 12073 12077 12080/M 12091 12091 

strn $284 $298 

strng 8280 §283 

stxe_p 12968 12893/P 

Sstxe_p 14472 14488/P 

sva 974 11915 12007 

sva 4517 11185/P 11447/P 11477 11480 11482 11483 11491 11501 
11501 11682/P 12113 12665 12666 12666 13204 13221/M 
13234/M 13326/P 13480 13481 13562 14080/P 14143 14150 
14164 141983/M 

sva 11259 11264 

sva 11271 11276 

sva 11368 11692 

sva 11426 11447 

sva 11903 11915/M 11916 11926 12025/M 12025 

sva 12198 12226/P 12236 12243 12292/M 12292 12296 

sva 12544 12551/P 

sva 12577 . 12598/P 

sva 12629 12643/P 126875/P 

sva 12698 12722/P 

sva 12894 12906/P 12838/P 

sva 12894 12938 

sva 12974 129893/P 13002/P 13007/P 130039/P 

sva 13272 13326 

sva 13402 13415/M 13433/M 13443/M 13456/M 13494/M 13594 13619/M 13634/P 
13647/P 

sva 14287 14293G6/M 14300/M 14301 14309/P 

sva 14350 14373/M 14374/M 14375 14410 14412/P 

**ke REFERENCE ABBREVIATIONS Memodify, Atattribute, Stsubscript, I:s1/O ref, Reread, Wewrite, P=parameter 


REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 
IDENTIFIER = ++ 923 ee eee se ees DEFINED-*---e-+ 222252226 REFERENCES 
ON LINE 

sva 14473 14488/P 14489 

Swap_data 3931 11560/M 12067/M 

swap_file descriptor pft i 4462 12066 12075 

swap_io_ contro} 3932 12063 12064/M 12065/M 12066/M 12066 12073 12073 12074 
12075/M 12075 12076 12077 12080/M 12081/M 12082/S 12084 
12085/M 12087/M 12087 12091 12091 12091 12091 12032/S 
12104/S 12116 12121 12124/M 12124 12125/M 

swap_status 3907 $815 11401 11444 11476 11520 11718 12404 12404 
12460 12460 12479 124793 12480 13322 13565 13565 
13577 13578 13579 13939 13960 14003 14075 14144 

Swapout_io_not_initiated 10756 $907 13897 

swapped _ page _ descriptors 4472 12104 

swapping io_error 3969 11560/M 12067/M 

syc$rc_conditional_free 3694 13008 

syc$rc_free_ pages 3636 13006 

syc$rc_write modified pages 3637 12995 

syc$ucr_condition 5640 5651 

syc$user_ defined condition 5641 5653 

system_ijle_p 12386 12436/P 12451/M 12451 12453/M 12453 12471/M 12471 12473/M 
12473 

system_ijle_p 12510 12515/P 12526/M 12526 12528/M 12528 

system_iws 13777 13801/M 13803/P 13806 

Syt$180_idle_code 5878 3824 

syt$monitor_flag 3760 5552 10272 

syt$monitor_ flags 5552 4788 11142 

Syt$monitor_request_code 3608 3596 3724 7674 7725 7744 7759 8569 9970 
10863 

Syt$monitor status 1784 1431 3597 3725 7675 7733 7745 71760 85:70 
9499 9531 $838 10144 10169 10187 10273 10864 
11375 11777 11882 12175 12181 12839 13704 

SytS$perf keypoints_enabled 7783 7779 

syv$perf_ keypoints enabled 7779 12115 

Ssyv$user_ templates 11188 13628 

tape_command 1138 12308/M 12309/M 12311/M 12316/M 12317/M 

tape _ request _p 12174 12203 12205 12212 12214 12216 12217 12220 12223 
12224 12238 12306 12308/M 12309/M 12311/M 12316/M 12317/M 
12334 12338/M 12339/M 

target 10380 13817 13820 

task_queue 4513 11429 11429 11430/P 11665 11665 11666/P 11786/P 12851/P 
12865/P 

task queue 10225 10228 ' 10230/S 

task_queue 11765 11786 11786/S 

taskid 3812 12851/P 12865/P 

taskid 10226 10223/M 10230/M 

taskid 11547 11430/P 11666/P 11754/P 

taskid 11765 11786/M 11786/M 

taskid 11778 11786/P 11787 11787 11788/P 11796/P 11805/P 11810/P 11817/P 

taskid 13754 14023/P 

taskid 14226 14251/M 14259 

taskid 14351 14381/M 14393 

temp _max working set_size 13766 13811/M 13813/M 13815 

temp_target 13767 13815/M 13817 13818 

* x * REFERENCE ABBREVIATIONS M=modify, Azattribute, S=subscript, I:I/0O ref, Reread, Wewrite, 


REFERENCES OF mmm$monitor_request_processor 


*** REFERENCE ABBREVIATIONS 


NOS/VE CYBIL/II 


IDENTIFIERe ccs see ee ere re ee eee DEFINED----c++e4%-e- ee eee REFERENCES 
ON LINE 

time last full jws_ scan 13770 13935 
time _last_idle dispatching scan 13768 13833 
time_last_ shared queue_scan 13769 13905 
time_next free _astes 13771 14039 
time_next_scan_wait_not_ queued 13772 13891 
time _spent_in_job_mode 4233 13851 
time spent_in mtr_mode 4234 13851 
timestamp 10328 13849/M 
tmc$ 5985 §991 

6015 
tmc$broken_task_fault_id 5568 5618 
tmc$btc_invalid_ao S666 5687 
tme$btc_invalid_p S666 5687 
tmc$btc_mcr_traps_ disabled 5667 5688 
tmce$btc_mf_ traps disabled 5666 S686 
tme$ptc_omntr_ fault buffer full 5665 5686 
tme$btc_system_error 5668 S682 
tme$btc_ucr traps disabled 5667 5688 
tmc$dummy_ fault 5569 5624 
tmce$flag available_31 5803 5807 
tmc$maximum_monitor_ faults 5573 5564 
tmc$maximum_signals 5783 5780 
tmc$maximum_system_task_id 5816 5819 
tmeS$mer_ fault $568 5620 
tme$rc_ready condit ional_wi 5967 11720/P 
tmce$signal_available_63 5765 S776 
tme$stid_ null task 5822 $819 
tmc$ts_io_wait_not_queued 5959 5941 
tmce$ts_page_ wait 5961 5942 
tmc$ts_ ready S946 $9337 
tmc$ts_timed_ wait not_queued 5953 5940 
tme$ts_ timeout _reqexp_longviong 5951 5939 
tme$ts_timeout_reqexp_shortsmrt 5950 5938 
tmp$cause_task_switch 10200 12408 
tmp$check_ for _swapout candidate 10203 13964 
tmp$check timed _wait_not queued 10208 13833 
tmp$clear_ lock $536 $510 

13349 
14159 
tmp$dequeue task 10212 11430 
tmp$find next _queued_task 10218 11817 
tmp$get_taskid_from_task_queue 10224 10231 
tmp$get_xcb_p 10233 11788 
tmp$idie non _dispatchabie_ job 10240 13967 
tmpSobtain_ijl_ordinal_from_pt1 10247 13706 
_tmp$queue_ task 10254 12851 
tmp$reissue_monitor_request 10261 12407 
tmp$send_ monitor fault 10264 11805 
tmp$set_ lock 9572 9501 
; 13349 
tmpSset_monitor_ flag 10271 11796 
tmpS$set_task_ready 10277 11719 
tmtS$broken_task_condit ion 5665 5681 


1.0 891602 


13981/M 
13885/M 
13926/M 
14056/M 
13892/M 
13864 
13865 
13870/M 
5994 
6018 


12851/P 


12855 


9549 
13942 


11666 


11786 


12865 
12852 
11810 

ssgso0 
13938 


1989-08-21 


13893/P 

13868 13948 13950 

13869 13951 

13873 13884/M 

5997 6000 6003 6006 
6021 6024 6027 6030 
12865/P 

13568 

9642 $820 11488 11494 
13876 13978 14003 14075 
11754 14023 

12854 12867 13567 

$635 $818 11488 11494 
13976 14003 14075 14144 


13:33:34 
6003S 6012 
6033 6036 
11814 13322 
14144 14152 
11814 13322 
14152 14159 


PAGE 5093 


Pzparameter 


PAGE 510 


Msmodify, Atattribute, Sssubscript, I*1/0 ref, Rzread, Wewrite, Pzparameter 


REFERENCES OF mmm$monitor_request processor NOS/VE CYBIL/II 1.0 88102 1889-08-21 13:33:34 PAGE 511 
TDENTIF LER S+4e2 ses ee sc eee sss DEFINED <*<-%-<s+sss-5 5 == REFERENCES 
ON LINE 

tmt$broken_task_monitor fault 5679 5618 

tmt$cpu_execution_statistics 11048 11043 

tmt$dispatch control 5308 3819 

tmtS$dispatching_ control_sets 11096 11086 

tmt$dispatching controls 11060 11055 

tmt$dispatching prio controls 11070 11065 

tmtS$dispatching_priority_t ime 11075 11072 

tmt$dual_state priority _entry 5975 3806 5972 

tmtS$idie status 5964 11140 

tmt$mer_faults 5704 5621 

tmtS$monitor fault buffer 5558 4825 

tmt$monitor_fault_buffers 5564 5559 5560 5561 

tmt$monitor fault identifiers 5567 5617 5693 

tmt$primary_task_list 11151 11117 

tmt$primary_ task_list_entry 11133 11151 

tmt$pti_flags 11157 11144 

tmt$pt1_ lock S560 9536 9572 $623 

tmt$ready_ condition 5967 10279 

tmtS$signal 5721 5716 

tmt$signal_ buffer 5713 4826 

tmt$signal_buffers 57890 5714 5715 5716 

tmtS$system_flags 5786 4801 11143 

tmt$system_task_id 5819 4792 

tmt$task_queue_ link 557 550 4§13 10212 10225 160256 106932 11141 

tmt$task_status 5946 5911 10255 11138 11138 

tmtS$time_limits 11077 11075 

tmtS$wait inhibited 11164 11159 

tmt$xcb_offset_size 11155 11136 

tmv$cpu_execution_statistics 11043 13850 13851 13864 13865 13867 13868 

tmv$dispatching control_sets 11086 13841 13860 

tmv$dispatching controis 11055 13859 

tmv$ long wait force _ swap_time 11112 13962 

tmv$null_global_task_id 10583 11787 11787 

tmv$pti_ lock $623 9501/P $510/P §$635/P $642/P 9818/P $820/P 11488/P 11488/P 
11494/P 11494/P 11814/P 11814/P 13322/P 13322/P 13349/P 13349/P 
13838/P 13942/P 13976/P 13876/P 13978/P 14003/P 14003/P 14075/P 
14075/P 14144/P 14144/P 14152/P 14152/P 141598/P 14159/P 

tmv$pti_p 11117 10230 11786 

tmv$t imed_wait_not_queued 11171 13892 

tos_registers 5402 14486 

total_idie 13762 13836/M 13840 13883 

total list entries 12199 12202/M 12228 12230/P 12238 12251 12259/P 12275 12283/S 
12291/S 12296/S 12302/M 12302 12308/S 12312/S 12334 12335/S 
12338 

transfer length 3344 12223 

trap_enable 5359 11797 

u 3396 11620/M 11630/M 12927 12928/M 

unblocked priorities 10318 13841 13846/M 13876/M 13877 

unlock_pages 11565 11565 11568 11704 

unrecovered files 7709 13585/M 

unrecovered_ files 13404 13574/M 13574 13585 

unrecovered pages 7708 13586/M 

* x REFERENCE ABBREVIATIONS Mzmodify, Azattribute, Stsubscript, I=I1/0 ref, Reread, Wewrite, Pzparameter 
REFERENCES OF mmm$monitor_request_processor NOS/VE CYBIL/II 1.0 89102 1989-08-21 13:33:34 PAGE 512 
LOENTIP LER ss 6 ss 6) 59 Swe e eae Soe DEFINED S30 5)<4 sin sis ese Soom REFERENCES 
ON LINE 

unrecovered pages 13405 13576/M 13576 13586 

upper 11033 14188 

user dp_set 13763 13846 13859 

Vv 3394 11380/M 11446/M 11519/M 11616/M 11629/M 11639/M 11647/M 11691/M 
11694/M 11799/M 11947 11957/M 11866/M 11969 11981 11988 
11989/M 12647/M 129198 13167 13168/M 13179/M 13240/M 13254/M 
13324 ‘13325/M 13338/M 13346/M 14188 14490 

vi 4372 13590/M 13592/M 14283 14284 142398 14366/M 14368/M 14383 

wait _for_io complete 7676 13637/S 13640 

waitopt 7763 13004/P 

wired command _heap_p 1114 12203 

wired read description_p 1113 12217 12220 

wired write description_p 1112 12223 12224 

wmp_status 12703 12718/M 12738/M 12741/M 12743/M 12745/M 12788/M 12790/M 12806 
12807/M 12810 12811 12812/M 

wmp_ status 12835 12845 

wmp_status : 12965 13003/P 13004/P 

wmp_status 13403 13636/P 13637/P 13639 13639 13640 

working set 11304 11310/M 

working set 13737 13803/M 

wp 4975 10080 

write loop 12725 12725 12746 127783 

write ok 14127 14146/M 14151/M 14156 

write status 12713 12730/P 12731 12738 12740 12742 

write status 14119 14158/P 14160 14162 

write to disk 12728 12728 12749 

ws_disk_f laws 10162 12738 

WwS_ ok 10162 12731 14162 

ws_ physical _io_reject 10162 14160 

ws_server_terminated 10163 12742 

ws_ volume unavailable 10163 12740 

xcb_p 3817 12426/P 12987 1348S/P 14486 

xcb_p 9857 $862 9862 

xcb_p $869 9875 9875 9876 9876 

xcb_p $333 $936 $337 

xcb_ op $946 9949 $950 

xcb_p 11765 11794 11794 

xcb p 11779 11788/P 11789 11791/P 11793 11794/P 11797 11797 11803 
11804 11808 11808 

xcb_p 12367 12426 12426 

xcb_p 13377 134898 134893 

xcb_p 13688 13708 13708 13708 13708 

xe¢b_p 13689 13706/P 13708/P 13710 

xcb_p 14211 14230 14230 14230 14230 14231 14231 14231 14231 

xcb_p 14213 14231/P 14236/M 14237/M 14239 14240 14251 

xcb_p 14277 14293 14283 14233 14293 

xcb_p 14278 14293/P 14297 

xcb_p 14328 14357 14357 14357 14357 14358 14388 14358 14358 

xcb_p 14333 14358/P 14381 14406 

xcb_ segnum_relative_jobs_as 14331 14365/S 14368/S 14363/S 14370/S 

*** REFERENCE ABBREVIATIONS : Memodify, Azattribute, S:subscript, I:1/O0 ref, R=read, Wewrite, P:parameter 


REFERENCES OF mmm$monitor_request_ processor NOS/VE CYBIL/II 1.0 89102 
IDENTIFIER---°crr ree tere ree ee DEF INED< = 9535 s8 23 2 sos REFERENCES 
ON LINE 
xp 4787 11797 11797 12987 
14240 14242 14297 
xpfti 9770 9785/M 
xpFft i 10040 100539/M 
xpFti 12367 12465/M 
xpFfti 12367 12476/M 
xpFft i 12543 12563/M 
xpFti 12576 12612/M 
xpfti 12628 12648/M 12658/M 
xpfti 12628 12651/M 
xpFti 12697 12778/M 12801/M 
xpfti 12894 12934/M 
xpfti 13272 13356/M 
xpFti 14329 14419/M 
xSva 13288 13315/M 13316/M 13318/P 
et REFERENCE ABBREVIATIONS M=modify, Azattribute, 


1889-08-21 13:33:34 
13710 14236/M 14237/M 14239 1423 
14486 
S=subscript, I:I1/0 ref, R:tread, W-write, 
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P=parameter 


